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;
~!!
这种方式:
Form2.Parent := Tform1.panel1
会出现很多怪问题,比如panel1上的控件按鼠标无法获取焦点...
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;
我对midi比较感兴趣