当我动态创建一个控件时,如何加入事件处理代码!!!假如我要创建一个TADOQuery,如何在它的GetText事件里加入代码呢?能否办到??????????????????
解决方案 »
- 有人知道报Some internal limit (see context).是什么原因吗
- Rave报表如何显示页码?
- 这个过程什么意思啊
- 在三层,使用clientdataset 时,如何在修改数据后,立即能感知到数据变化
- 分少但会加
- 哪里可以得到ISO9000的具体标准内容?
- 各位大哥,fastreport怎么装,教教小弟。
- delphi 数据库开发中,怎样用TQUERY处理master_detail表阿/
- 在delphi6中如何制作帮助文件。
- 怎样用 worddocument组件在 w o r d中插入以副图片
- 这个结构在DELPHI中要怎么定义
- PrintDBGridEH怎样控制打印方向,横向打印或纵向打印?
var
Btn: TButton;
begin
Btn := TButton.Create(...);
Btn.Parent := ... // 添加事件处理函数
Btn.OnClick := MyNewButtonClick;
end;
procedure TForm1.CreateButton(ButtonClass:TButtonClass);begin
AButton:=ButtonClass.Create(self);
try
AButton.Parent:=self;
//AButton.Name:=ButtonClass.ClassName;
TButtonObj(AButton).Caption:='aa';
AButton.SetBounds(20,20,75,75);
TButtonObj(AButton).OnClick:=Onclick; ///由于CAPTION,ONCLICKD等属性是受保护域,(这里就是动态将事件副给他)
//所以要申明一个TCONTROL类来访问这些属性 except
AButton.Free;
end;
end;procedure Tform1.onclick(sender:Tobject);
begin
ShowMessage(Sender.ClassName);
end;
方法就像上面所说的.类似 Btn.OnClick := MyNewButtonClick;但是赋值的过程参数要同gettext的参数一致.