L
lht123
Unregistered / Unconfirmed
GUEST, unregistred user!
1。定义事件type TNotifyEvent = procedure(Sender: TObject) of object;2。定义类的变量,属性 private FOnDblClick: TNotifyEvent; published property OnDblClick :TNotifyEvent read FOnDblClick write FOnDblClick;3. 在事件激发的位置加:(例:在得到鼠标双击消息的地方) if Assigned(FOnDblClick) then FOnDblClick(Self);我想知道 if Assigned(FOnDblClick) then FOnDblClick(Self); 这个语句起到什么作用了,里面也没有双击的事件啊。