Rechte Maustaste

[Pseudemys Nelsoni]

huhu,

wollt mal fragen wie ich auf ein rechtsklick reagieren kann

gruss silent 8)

[Daniel B]

Hallo,

OnMouseUp, OnMouseDown. :roll:

Grüsse, Daniel :hi:

[Pseudemys Nelsoni]

huhu

jo da hab ich mein text drinne, aber da reagierts auf links und rechts, oder kann man das auch einzeln einstellen?

=)

[Daniel B]

Hallo,

ich der Prozedur, musst Du erst nach der rechten Maustaste mit if Abfragen.
VK_RBUTTON wäre die rechte Maustaste.

Grüsse, Daniel :hi:

PS: Sonstige VK_Codes gibt es auch hier:
http://www.delphipraxis.net/viewtopic.php?t=1310

[Pseudemys Nelsoni]

Delphi-Quellcode:

procedure TForm11.Image13MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = VK_RBUTTON then
  GetBmp(ImageList4, 11, Image13);
end;

so kommt bei mir immer "inkompatible typen"

btw die thx für die vkeys :)

[Daniel B]

Hallo,

so, hier ist die Lösung, an der Stelle geht dies mit VK_RBUTTON nicht. Sorry!

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    ShowMessage('linke Maustaste');
  if Button = mbRight then
    ShowMessage('rechte Maustaste');
end;

Grüsse, Daniel :hi:

[Pseudemys Nelsoni]

danke sehr :)