tastenabfrage mittlere maustaste

[made in Germany]

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

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;