tastenabfrage mittlere maustaste

[made in Germany]

HAI!

folgendes Problem:

ich möchte etwas ausführen, wenn die mittlere Maustaste gedrückt wurde

mein Ansatz:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_F1   then showmessage('F1 wurde gedrückt');
  if key = VK_MBUTTON   then showmessage('mittlere Maustaste wurde gedrückt');
end;

Das mit der F1-Taste hab ich in einem anderen thread gefunden, das funktioniert.
Aber warum lässt sich das nicht auf die Maustaste übertragen?

[taaktaak]

Moin, Moin,
lässt sich übertragen, aber mit dem Event OnMouseDown ...

[made in Germany]

durch was muss ich dann "key" ersetzen? :gruebel:

[made in Germany]

ah, habs! danke für die schnelle hilfe! (3 min, des ist top! :thumb: )

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbmiddle then showmessage('mittlere Maustaste wurde gedrückt');
end;

[taaktaak]

Na, zum Beispiel so

Delphi-Quellcode:

procedure TfoTest6.LBMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbMiddle then ShowMessage('mittlere Maustaste wurde gedrückt')
end;

[taaktaak]

hihihi, das ist ja ein Zufall...