精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>控件开发和使用>>Re: 求救!急!怎样为动态生成的控件制做响应事件?

主题:Re: 求救!急!怎样为动态生成的控件制做响应事件?
发信人: 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: ]

[关闭][返回]