Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
7. Okt 2004
hatte ich ja auch gedacht, aber komisch ... vorhin ging es noch, als ich es so hatte:
Procedure TForm1.ListBox1MouseDown ...
Begin
Keybd_Event(VK_CONTROL, 0, 0, 0);
End;
Procedure TForm1.ListBox1MouseUp ...
Begin
Keybd_Event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
End;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
7. Okt 2004
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 :gruebel:
Procedure TForm1.ListBox1MouseDown ...
Begin
If cbCtrl.Checked Then Keybd_Event(VK_CONTROL, 0, 0, 0);
End;
Procedure...