ListBox - Selektierung bei MultiSelect

[Christian Seehase]

Moin Yheeky,

so funktioniert es bei mir:

Wenn die ListBox den Focus erhält wird STRG intern gedrückt, geht man aus der Listbox wieder raus, wird die Taste losgelassen.

Delphi-Quellcode:

procedure TfrmMAIN.ListBox1Enter(Sender: TObject);
begin
  Keybd_event(VK_CONTROL,0,0,0);
end;

procedure TfrmMAIN.ListBox1Exit(Sender: TObject);
begin
  Keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
end;