Listbox Items unselektierbar machen ohne Enabled property

[Bbommel]

Noch einen Vorschlag hab ich gerade mal getestet: Für die ListBox die Ereignisse OnClick und OnMouseDown defnieren und mit folgendem Code belegen:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if ListBox1.ItemIndex>=0 then
    ListBox1.Selected[ListBox1.ItemIndex]:=false;
end;

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ListBox1.ItemIndex>=0 then
    ListBox1.Selected[ListBox1.ItemIndex]:=false;
end;

Man braucht beide, damit sowohl bei Mausklicks wie auch bei der Steuerung in der ListBox bei Tastatur nix ausgewählt wird. Brachte hier den gewünschten Effekt und hat vielleicht noch den Vorteil, dass auch wirklich nichts ausgewählt wird.

Bis denn
Bbommel