這個參數如何傳遞!!!進來看一看吧!!

Question

例如：
type  TKeyEvent = procedure (Sender: TObject; var Key: Word; Shift: TShiftState);var
  key: TKeyEvent;procedure KeyEv(Sender: TObject; var Key: Word; Shift: TShiftState);可以这样赋值了：
 kye:=KeyEv();

Answer 1

其实就是声明一个procedure类型。只要某个procedure的调用方法、参数和返回值与声明的类型一致，就可以把它赋值给该类型的变量。不单单是事件过程，普通的过程也可以。