procedure TForm1.Button1Click(Sender: TObject);
var
Ed:Tedit;
begin
Ed:=Tedit.Create(Self);
Ed.name:='edit1';
Ed.Text:='edit1';
Ed.top:=20;
Ed.left:=20;
Ed.Parent:=self;
Ed.show;
end;
var
Ed:Tedit;
begin
Ed:=Tedit.Create(Self);
Ed.name:='edit1';
Ed.Text:='edit1';
Ed.top:=20;
Ed.left:=20;
Ed.Parent:=self;
Ed.show;
end;
解决方案 »
- 在线程中操作主窗口的定时器的tag属性不至于把程序搞崩溃吧
- 100分——如何在打印输出是显示与DBgrid一致的值,而不是读关联的AdoQuery?
- 如何才能知道一个点是不是落在某个范围内呢?
- Delphi中关于strtofloat的问题
- 如何做一个全功能的代理服务器软件?我作过一个Http代理服务器,但我想做成一个能代理http.,ftp,QQ的全功能代理软件[:)]
- 请问ppt演示文稿在delphi中怎么使用啊?
- 怎样映射本地磁盘到服务器上
- 请教高手(关于数据结构)的一个问题
- 怎样通过程序执行一个外部文件 .exe
- 分数清囊相送(1000分),如何实现环排或者弧排文字。高手们快来拿分吧。急!!!!
- dajia 帮我看看啊
- 如何使一模式对话框当按下一属性为mrOK或mrCancel的按钮时不关闭此对话框?
首先你要声明一个你想要动态生成控件的实例。
然后在执行段中创建这个实例。
这样以后就可以把创建的这个实例,当成你窗体中的控件一样使用了,
可以对它改属性,响应事件等工作。
使用完毕后,你也可以free它,保险起见。
好。
祝:身体健康!!
begin
MyButton := TButton.Create(Self);
MyButton.Parent := MyPanel;
MyButton.Name := 'MyButton';
end;
主要是Create时的Owner参数和设置动态生成控件的Parent属性。
至于释放嘛,可以让Owner去管理。
parent,因为这是你父类,一定要有
2、变量create和free了没有;
3、控件名,申明父类
没有它就显示不出来,其他的东西设置和非可视的控件一样。
没有他就显是不出来,其他的设置和创建过程和非可视的一样!