ondblclick براي button

[iamehsan56]

سلام
چطور مي شه به button رويداد Ondblclick رو اضافه كرد ؟

[vcldeveloper]

یک کلاس جدید از TButton مشتق بگیرید و درش متدی برای هندل کردن WM_LBUTTONDBLCLK بنویسید.
مثلا:


type
TMyButton = class(TButton)
private
FOnDblClick : TNotifyEvent;
procedure WMLBUTTONDBLCLK(var Msg: TMessage); message WM_LBUTTONDBLCLK;
protected
procedure DoubleClick; dynamic;
published
property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
end;




implementation

{ TMyButton }

procedure TMyButton.DoubleClick;
begin
if Assigned(FOnDblClick) then
FOnDblClick(Self);
end;

procedure TMyButton.WMLBUTTONDBLCLK(var Msg: TMessage);
begin
DoubleClick;
end;