Event Rechtsklick mit Maus

[turboPASCAL]

sowas:

Delphi-Quellcode:

procedure TForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssRight in Shift then ...
end;