請問一下 動態產成的物件 method 要如何指定呢 小弟翻了以前的文章....可是還是看不懂~ 我想要在 function 裡的 物件裡 指定method 應該錯很多地方吧~~ 下面這段跟本過不了編譯器....我該怎麼改呢?? function diglist(acaption:string;astringlist:Tstringlist):string; var form:tform; ckecbox:Tchecklistbox; procedure MyMethod(sneder:tobject); begin // end; begin Form := TForm.Create(Application); with Form do try Canvas.Font := Font; ckecbox:=Tchecklistbox.create(form); with ckecbox do begin Parent := Form; items:=astringlist; onclick:= MyMethod; <--------------------有問題 end; if ShowModal = mrOk then begin end; finally Form.Free; end; end;

必須把 event handler 宣告為一個 object 的 method 而不是一個普通的 procedure, 例子如下:

type
  TForm1 = class(TForm)
  private
    procedure MyMethod(Sender: TObject);
  public
    { Public declarations }
  end;    var
  Form1: TForm1;

function diglist(acaption:string;astringlist:Tstringlist):string;
var form: TForm;
  ckecbox: Tchecklistbox;
begin      Form := TForm.Create(Application);
  with Form do
    try
      Canvas.Font := Font;          ckecbox:=Tchecklistbox.create(form);
      with ckecbox do
      begin
        Parent := Form;
        items := astringlist;
        onclick := Form1.MyMethod;
      end;          if ShowModal = mrOk then
      begin
      end;
    finally
      Form.Free;
    end;
end;

--- 歡迎光臨 KTop 研究院

你好： 你也可以參考 Justmade版主 將一般獨立 procedure 指給Event 的技術文章。 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30573

太感謝了~~~ 總算弄出來了 謝謝二位前輩