Aktion beim Drücken der Linken Maustaste

sklorzy · Beiträge: 23

Hi allezusammen,
also ich hab da ein Problem. Ich will bei einem OnMouseDown-Ereigniss eine Aktion ausführen lassen, wenn die linke Maustaste gedrückt wurde.
Für OnKeyDown ist das ja

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 13 then
  showmessage('Hallo');
 end;

Hier steckt die Abfrage nach der gewünschten Taste in If key = 13...
Aber wie ist das Bei OnMouseDown????

Danke schonmal im Voraus!!!

Ehemaliges Mitglied Erhaltene Danke: 1

Da wird auch der geklickte Mausbutton übergeben und zwar in Form eines TMouseButton.
EInfach so abfragen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button = mbleft then 
    color := clgreen;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme