Entwickler-Ecke :: Thema anzeigen - Aktion beim Drücken der Linken Maustaste

sklorzy - So 17.10.04 10:24
Titel: Aktion beim Drücken der Linken Maustaste

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

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!!!

Delete - So 17.10.04 11:00

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

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;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!