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;