Doppelklick und Hotkey

[beanbear6]

Hi Bummi,
da ich wie bereits gepostet noch nicht so fit
bin in Delphi kann ich mit Deinem Posting leider
nichts anfangen... (is aber nicht böse gemeint)
Gruß beanbear

[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;

[beanbear6]

Hallo Bummi,
habs hingekriegt. Vielen Dank Dir!!!
Gruß Reiner

[Bummi]