Midi窗体如何显示在指定的panel当中?
如题:
Form2.Parent := Tform1.panel1
编译出错:Method identifier expected
[解决办法]
procedure Tfm_Main.FormOpenShow(TClass: TComponentClass;var Reference);
begin
if assigned(TForm(Reference)) then
begin
TForm(Reference).Close;
TForm(Reference).free;
end;
application.CreateForm(TClass,TForm(Reference));
TForm(Reference).Dock(Panel1,Panel1.ClientRect); //把窗体 放在panel上
TForm(Reference).Show;
end;
procedure Tfm_Main.cxButton10Click(Sender: TObject);
begin
FormOpenShow(TForm1,Form1);
end;