unit RichConCLaK;
interface
uses
Windows, Classes, messages,Controls, StdCtrls, ComCtrls;
type
TrichEdit1 = class(TrichEdit)
private
FOnDblClick: TNotifyEvent;
Procedure Cluk(var message:TWMMouse);message WM_LBUTTONDBLCLK;
protected
public
published
property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('ArtSoft', [TrichEdit1]);
end;
Procedure TrichEdit1.Cluk(var message:TWMMouse);
begin
if Assigned(FOnDblClick) then FOnDblClick(Self);
end;
end.