发信人: xunmi@GZ()
整理人: delfan(2001-03-30 21:55:10), 站内信件
|
标 题: Re: 求救！急！怎样为动态生成的控件制做响应事件？
发信站: 网易虚拟社区 (Sun Mar 5 17:31:54 2000), 站内信件
【 在 xiaorj (DrX) 的大作中提到: 】
: 我在一个单元中使用动态生成的TQuery控件tmpQuery代替单元中的多个
: 已经写好的QueryXX,但是只想为这个动态控件写一个AfterOpen事件，
: 请问应该怎么做？多谢！
: 请选择回复的那个小勾！多谢了！
: .......
Example:
type
TForm1 = class(TForm)
...
...
private
{ Private declarations }
public
procedure MyAfterOpen(Dataset:Tdataset);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var qq:Tquery;
begin
qq:=Tquery.create(self);
qq.name:='qq';
qq.parent:=self;
qq.afteropen:=Myafteropen; //定义事件
end;
procedure TForm1.Myafteropen(Dataset:Tdataset);
begin
//自己的代码
end;
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: ]
|
|