delphi如何在一个窗体中嵌入另一个窗体

本文整理自网络，侵删。

 本例子为在Form1的Panel中显示Form2窗体，请注意例子中的reintroduce关键字
//Form1 父窗体
view plaincopy to clipboardprint?
uses unit2;   
procedure TForm1.FormCreate(Sender: TObject);   
begin  
  form2 := TForm2.Create(Panel,self);   
  form2.BorderStyle := bsNone;   
  form2.WindowState := wsMaximized;   
  form2.Parent := Panel;   
  form2.Show;   
end;   
<span class="hljs-comment">uses unit2;procedure TForm1.FormCreate(Sender: TObject);begin  form2 := TForm2.Create(Panel,self);  form2.BorderStyle := bsNone;  form2.WindowState := wsMaximized;  form2.Parent := Panel;  form2.Show;end;</span>
//Form2 子窗体
view plaincopy to clipboardprint?
uses Unit1;   
private  
    FOwnerForm : TForm;   
end;   
  
constructor Create(AOwner: TComponent; OwnerForm: TForm ); reintroduce;//响应父窗体事件的关键   
  
constructor TForm2.Create(AOwner: TComponent; OwnerForm: TForm);   
begin  
  inherited Create(Aowner);   
  FOwnerForm := OwnerForm;   
end;   
  
//事件触发（在FORM2中来响应FORM1的事件）   
procedure TForm2.Button1Click(Sender: TObject);   
begin  
  if Self.FOwnerForm.ClassType = TForm1 then  
  begin  
    ShowMessage('按下我了！');   
  end;   
end;   
 

相关阅读 >>

Delphi xe7 rest获取天气实例

Delphi窗口显示于parent控件上

Delphi imagelist-图片（bmp）按名称而不按索引

Delphi 字符串替换函数[单元文件 sysutils]

Delphi xe android 调试错误：connection closed gracefully

Delphi idhttp造成程序假死的解决办法

Delphi打开关闭光驱

Delphi编程防止界面卡死的方法

Delphi强制应用非一次性载入的注册表设置

Delphi 获取文件所在路径

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi如何在一个窗体中嵌入另一个窗体