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-regexp"><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</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 获取listbox1的行值

Delphi 字符串保存utf-8过程

Delphi判断字符是否是汉字

Delphi try except与try finally不同之处

Delphi 批量生成 a到z 字母

Delphi 分享三个随机字符串

Delphi tms web core 嵌入js代码

Delphi中的sender：tobject对象解析

Delphixe4 版本中，已针对移动平台 引入了 arc 模型

Delphi memo 循环往上往下滚动

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

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