如何在一个窗体中嵌入另一个窗体。
2004-12-01 13:35
435 查看
Form1
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;
Form2
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('a');
end;
end;
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;
Form2
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('a');
end;
end;
相关文章推荐
- 张镐哲--好男人
- Portal中的列表不能设置权限?
- 在MFC中的CWinApp得到视图的指针,真难呀(适用于SDI和MDI)
- bash 详解 [转]
- 试卷自动生成系统的开发与应用
- Web上更改样式就可以使Select标签变为可编辑[HTC封装]
- IBM的FTP
- Eclipse插件的最简单安装方法
- 征服---深绿大师
- 似曾相识燕归来
- 多盼望……
- 纯C系统上的范型代码示例 list.c
- 关于C++中的虚函数
- 五百年的故事 五百年的轮回 五百年的大话西游(1)
- Blog正式易名“小生杂谈”
- 幸福的镯儿她哥
- Information Retrieval Systems
- 关于结构相同多表合并问题
- 可怜的镯儿他哥(十)终结
- VC++.NET开发环境整合技巧