Strg-Taste per Button einrasten!

[himitsu]

Ich hätte zwar erst gedacht dass, wenn man die Strg-Taste mitten innerhalb von onMouseDown drücken läßt, es dann zu spät wäre, weil ja das Mausereignis schon begonnen und eigentlich TShiftState (also auch Strg) schon ausgelesen wurde, aber es geht

Delphi-Quellcode:

Procedure TForm1.ListBox1MouseDown ...
  Begin
    If cbCtrl.Checked Then Keybd_Event(VK_CONTROL, 0, 0, 0);
  End;

Procedure TForm1.ListBox1MouseUp ...
  Begin
    If cbCtrl.Checked Then Keybd_Event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
  End;