Doppelklick und Hotkey

[Bummi]

Delphi-Quellcode:

type
  TSpeedbutton=Class(Buttons.TSpeedButton)
        procedure WMLButtonDblClk(var Message: TWMLButtonDblClk); message WM_LBUTTONDBLCLK;
  End;


  TForm5 = class(TForm)
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1DblClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.SpeedButton1DblClick(Sender: TObject);
begin
  Showmessage('Hallo')
end;

{ TSpeedbutton }

procedure TSpeedbutton.WMLButtonDblClk(var Message: TWMLButtonDblClk);
begin
  if Assigned(OnDBLClick) then OnDBLClick(Self)

end;