手动创建窗体后组件不能使用问题
在 Form1 中 Button1 OnClick 加入代码:
var
form2:Tform;
begin
form2:=form2.create(Application); // form2:=form2.create(self);
form2.Show;
form2.Parent:=form1.Panel1;
end;
结果,运行后,点击 form1 后,出来 form2。但是 form2上的Edit1 不能编辑。Edit1属性 Enabled .
请各位大侠帮忙看看!谢谢!
[解决办法]
procedure TForm1.Button2Click(Sender: TObject);var form2:Tform2; //你的原来是TFORMbegin form2:= tform2.create(nil); // 你的原来 form2.create form2.Parent:=form1.Panel1; form2.Align:= alclient; form2.BorderStyle:= bsnone; form2.Show;end;