其中FORM1为主界面。在FORM1上有一个panel。我想实现这样的功能:当点击FORM1上的一个按钮时,创建FORM2并让FORM2显示在FORM1的PANEL上。跟随PANEL的大小进行变化。
我是这样写的:
procedure TForm1.RzBitBtn1Click(Sender: TObject);
var
Form2: TForm2;
begin
Form2:=TForm2.Create(nil);
Form2.Parent:=RzPanel1;
Form2.Align:=alClient;
Form2.Show;
end;可是我发现有的时候我在操作FORM2上的控件时会提示“has no parent window”错误。
或者我无法让Form2上的Edit控件获得焦点!
请各位帮助!
我是这样写的:
procedure TForm1.RzBitBtn1Click(Sender: TObject);
var
Form2: TForm2;
begin
Form2:=TForm2.Create(nil);
Form2.Parent:=RzPanel1;
Form2.Align:=alClient;
Form2.Show;
end;可是我发现有的时候我在操作FORM2上的控件时会提示“has no parent window”错误。
或者我无法让Form2上的Edit控件获得焦点!
请各位帮助!
解决方案 »
- 请问各位高手delphi7的行号怎么调出来?
- 如何把twebbrowser中的所有内容存成一张位图?无论她是否在屏幕上能够显示完全,无论有没有滚动条?
- 忽然想学学Delphi编程,请大家介绍几个好点的学习站点以及一些不错书籍
- 怎样使show方法出来的窗体,在close窗体时,同时Free该窗体?
- Quick CHM 问题 再次请教
- ADO + MS SQL server 2000 用什么中文打包工具比较好?
- 如何得到WORD里插入符的位置?
- 主从表提交的保存(提交)的问题
- 報表制做問題?小弟一定高分答謝!!!
- 怎么判断一个变量是何种类型?
- TfileStream...?
- 我在开发网络程序的时候需要使用重叠IO模型!
Windows.SetParent(Form2.Handle,self.Panel1.Handle);
但是
Form2.Align:=alClient;
这一句不能使用,那FORM2的大小你自己来控制了...