請教各位大大:   小弟是這理的菜鳥..現在遇到一個問題如下: 當我動態產生一個元件後,如何使用它的Event呢?    //動態產生QUERY , 但我想用 TempQuery 的AfterRefresh事件   因可能產生物件陣列,所以事前不知會產生幾個,但只要產生的物件   就要有事件..所以 procedure TForm1.Button1Click(Sender: TObject); var TempQuery : TQuery; begin   TempQuery:=TQuery.create(self); .........    end;    不吝賜教 謝謝 myron    

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure QueryAfterRefresh(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.QueryAfterRefresh(DataSet: TDataSet);
begin
  // ...
end;    procedure TForm1.Button1Click(Sender: TObject);
var TempQuery : TQuery;
begin
  TempQuery := TQuery.create(self);
  // ...
  TempQuery.AfterRefresh := QueryAfterRefresh;
end;    end.

另一種方法, 參考 Justmade 大大的大作: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30573 --- 歡迎光臨 KTop 研究院 發表人 -