請問如下列 type tkk=procedure(sender:tobject) of object; tform1=class(tform) .... procedure button1click(sender:tobject); .... end; .... var form1:tform1; onclick:tkk; .... onclick:=form1.button1click; 請問這樣作有什麼特別的意義…？

引言: 請問如下列 type tkk=procedure(sender:tobject) of object; tform1=class(tform) .... procedure button1click(sender:tobject); .... end; .... var form1:tform1; onclick:tkk; .... onclick:=form1.button1click; 請問這樣作有什麼特別的意義…？

沒看到完全的程式碼，所以只能猜猜， 作者大概是要把Form的button1click事件處理函式給保留下來， 所以用一個變數（實際上應該說一個函式指標）tkk把它存起來。

Hi, 請你先參考這些資料:    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30055 http://delphi.ktop.com.tw/topic.php?topic_id=30508    justimchung 兄解釋的沒錯. 一般會這樣寫的原因通常是為了取得該 event 所指定的執行 procedure, 目的呢, 其一通常是要再 assign 給其他可以用該 procedure 的元件使用, 其二呢就是可能先將該 event disable 後要再設定回來. 例如:    

....
  // 保留 button1click 的指標
  onclick:=form1.button1click;      // 將該事件取消或指向另一事件
  form1.button1click := nil; (form1.button2click)    ...
  //最後再還原
  form1.button1click := onclick;    

你的問題大概是屬後者的用法吧.!!

引言: 請問如下列 type tkk=procedure(sender:tobject) of object; tform1=class(tform) .... procedure button1click(sender:tobject); .... end; .... var form1:tform1; onclick:tkk; .... onclick:=form1.button1click; 請問這樣作有什麼特別的意義…？ Onclick變數定為tkk型態為一procedure的指標,就像a:integer; b:string;一樣 實際應用上 onclick所指向的procdure是設計者設定的 如設定Onclick:=Form1.Button1Click; . . 在其他地方此段為公用Function,procdure,event以供呼叫 begin onclick; //則此行會執行Form.Button1Click . . end; 若如設定Onclick:=Form1.Button123Click; 則run到onclick這一行則跳到Form1.Button123Click去執行

引言: Onclick變數定為tkk型態為一procedure的指標,就像a:integer; b:string;一樣 實際應用上 onclick所指向的procdure是設計者設定的 如設定Onclick:=Form1.Button1Click; . . 在其他地方此段為公用Function,procdure,event以供呼叫 begin onclick; //則此行會執行Form.Button1Click . . end; 若如設定Onclick:=Form1.Button123Click; 則run到onclick這一行則跳到Form1.Button123Click去執行

補充一下 cmj 兄的說明. 若是要利用 onclick 來進行呼叫 Form1.Button1Click 的話, 一樣要傳入對應的參數哦. 如: onclick(nil); 這樣才行, 否則的話會發生 complie 時期的錯誤! (其實就是和 Form1.Button1Click(nil); 的意義是相同的)