Abfragen ob Taste gedrückt und Maus geklickt wurde

[bundy]

Hi DP

Ich hab mal eine Frage

Ich will das Property ReadOnly von einer dbCheckBox ändern, wenn ich mit der Linken Maustaste und gehaltener STRG - Taste darauf clicke.

Allso ich weiß es nur wenn ich entweder das eine oder das andere mache, aber nicht beides zusammen.
Weil ich wenn ich onKeyUP hab ich die Variable Key aber nicht den Tmousbutton.

Ich würde mich über jede Hilfe freuen.

lg
bundy

[DeddyH]

Für das Klicken bei gedrückter Taste:

Delphi-Quellcode:

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbLeft) and (ssCtrl in Shift) then
    ShowMessage('Aha'); 
end;

Andersherum probier ich gerade noch.

[bundy]

HY cooool

ich danke dir für deine schnelle Hilfe .


lg
bundy

[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;