Rechts- oder Linksklick abfragen

[reyka]

Wie kann ich in einer Onclick Procedure abfragen ob es ein Links- bzw Rechtsklick ist??

mfg reyka :cheers:

[turboPASCAL]

in zB. FormKeyDown mit der Maus auf TShiftState und dann F1 drücken ? ;)

[reyka]

TShiftState

was ist das???

sorry ich bin ein anfänger

EDIT: achso ^^ jez hab ich es verstanden

[mkinzler]

Ein Parameter der Event-Methode

[reyka]

aber wie füge is "ssright" in eine Onclick ein? also z.B. wenn ich auf ein Panel klicke?

[mkinzler]

Garnicht, der paramter enthält dies, wenn gedrückt

[reyka]

ich weis net so ganz ob ich es richtig erklärt habe..

ich möchte das wenn man mit rechtsklick etwas anderes passiert als beim Linksklick

also

if "Rechtsklick" then

...


hoffe ihr könnt mir helfen ^^

[mkinzler]

Ja und deshalb musst du Überprüfen ob der wert im Parameter (Menge) enthalten ist

[reyka]

:wiejetzt:

und wie überprüfe ich das =) vorsicht ich bin Anfänger!

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