Delphi Abfragen ob Taste gedrückt und Maus geklickt wurde

Thema durchsuchen

Ansicht

Themen-Optionen

Abfragen ob Taste gedrückt und Maus geklickt wurde

Ein Thema von bundy · begonnen am 4. Sep 2007 · letzter Beitrag vom 4. Sep 2007

Vorheriger Beitrag

Nächster Beitrag

DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.662 Beiträge

Delphi 12 Athens

Re: Abfragen ob Taste gedrückt und Maus geklickt wurde

4. Sep 2007, 13:13

So, andersherum sollte es so gehen (bei gedrückter linker Maustaste wird STRG gedrückt):

markieren

Delphi-Quellcode:

			procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if (Key = VK_CONTROL) and ((GetAsyncKeyState(VK_LBUTTON) and $8000) <> 0) then

    ShowMessage('Aha');

end;

Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen