Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Prüfen ob Rechte Maustaste in Form gedrückt wurde (https://www.delphipraxis.net/47415-pruefen-ob-rechte-maustaste-form-gedrueckt-wurde.html)

tail 10. Jun 2005 19:28


Prüfen ob Rechte Maustaste in Form gedrückt wurde
 
Wie kann ich überprüfen, ob die Rechte Maustaste bei mir in einer Form gedrückt wurde und dann etwas machen?

BenjaminH 10. Jun 2005 19:35

Re: Prüfen ob Rechte Maustaste in Form gedrückt wurde
 
Wenn du ein Popup Menü haben willst, dann such mal nach TPopupMenu
ansonsten die Ereignisse OnMouseUp und OnMouseDown dabei wird in der Variable Button angegeben, welche Maustaste gedrückt/losgelassen wurde.

Jarmen_Kell 11. Jun 2005 13:27

Re: Prüfen ob Rechte Maustaste in Form gedrückt wurde
 
Dafür würde ich dir zu OnMouseDown / OnMouseUp raten.
In der Procedure wird dir der Status einiger Standard-Tasten geliefert.
Die rechte Maustaste heißt SSRight.
Insgesamt sieht es dann also folgendermaßen aus:

Delphi-Quellcode:
procedure TForm1.PnlRightMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer); // Shift = Tastenstatus
begin
  if SSRight in Shift then MacheEtwas;
end;

nailor 11. Jun 2005 17:04

Re: Prüfen ob Rechte Maustaste in Form gedrückt wurde
 
aber warum sollte man sich den button aus den shiftstates rauskramen, wenn er doch auch in "button" drinsteht?

Jarmen_Kell 11. Jun 2005 18:25

Re: Prüfen ob Rechte Maustaste in Form gedrückt wurde
 
Hmm naja ich habs bisher immer über Shift gemacht und dem "Button" bisher nicht viel Aufmerksamkeit geschenkt :o

Einen wirklichen Unterschied gibt es doch da aber ohnehin nicht, oder?

tail 11. Jun 2005 18:35

Re: Prüfen ob Rechte Maustaste in Form gedrückt wurde
 
Danke, habe es jetzt hinbekommen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz