tastenabfrage mittlere maustaste

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