繁體中文当前位置: 首页 > 图文教程 > 开发语言 > Delphi > 动态产生构件并相应事件
- Delphi
- Delphi开发经验四则
- Delphi应用程序的应用（一）
- Delphi应用程序的应用（二）
- 异常处理与程序调试（一）
- 异常处理与程序调试（二）
- 异常处理与程序调试（三）
- Delphi开发数据库应用程序概述（一）
- Delphi开发数据库应用程序概述（二）
- 简单数据库应用的创建及MASTAPP介绍（一）
- 简单数据库应用的创建及MASTAPP介绍（二）
- 简单数据库应用的创建及MASTAPP介绍（三）
- 数据访问部件的应用及编程（一）
- 数据访问部件的应用及编程（二）
- 数据访问部件的应用及编程（三）
- 数据浏览部件的应用及编程（一）
- 数据浏览部件的应用及编程（二）
- SQL编程（一）
- SQL编程（二）
- Delphi客户服务器应用开发（一）
- Delphi客户服务器应用开发（二）
Delphi 中的 动态产生构件并相应事件
方法:
var
MyBu : TBUTTON;
begin
MyBu:=TBUTTON.Create(Form1);
MyBu.Parent:=Form1;
MyBu.Left:=10;
MyBu.Top:=10;
MyBu.OnClick:=MyOnClick;
MyBu.Show;
end;
注:MyOnClick为响应的事件过程.
另：
㈠、运行时生成可视控件：以下以TEdit 控件为例
1.在Form的Public中定义TEdit控件
Edit1:TEdit;
2.在需要生成的地方加入以下代码：
Edit1:=TEdit.Create(Self);
Edit1.Parent:=Form1;
Edit1.Left ?:=20;
Edit1.Top :=20;
Edit1.Text :='Edit1 Text';
3.使用完毕后，释放分配的资源
if Assigned(Edit1) then Edit1.Free;
㈡、运行时生成非可视控件：以下以 TTimer控件为例
1.在Form的Public中定义TTimert控件
Timer1:TTimber;
2.在需要生成的地方加入以下代码：
Timer1:=TTimer.Create(Self);
Timer1.OnTimer:=YourAction;
YourAction是自己定义的OnTimer事件，使用
procedure TForm1.YourAction(Sender:TObject); 完成
3.使用完毕后，释放分配的资源
if Assigned(Timer1) then Timer1.Free;
评论 (0) All
