Abfragen ob Taste gedrückt und Maus geklickt wurde

[DeddyH]

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

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;