Rechts- oder Linksklick abfragen

[Fussball-Robby]

Du nimmst das OnMouseDown (nicht OnClick) und überprüfst den Parameter Button:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  case Button of
    mbRight: ShowMessage('Rechts');
    mbLeft:  ShowMessage('Links');
    mbMiddle: ShowMessage('Mitte');
  end;
end;