[dec]

Código Delphi [-]
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
    { Protected declarations }
  public
    { Public declarations }
  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.