TListBox - Markierung bestimmter Elemente verbieten

[sniper_w]

aber so geht das:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
 var i:integer;
begin
 randomize;
 for i:=0 to 20 do
  ListBox1.Items.Add(IntToStr(Random(10000)));
  ListBox1.Tag := 10;
  ListBox1.ItemIndex := 10;
end;

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if ListBox1.ItemIndex in [1,2] then
  ListBox1.ItemIndex := ListBox1.Tag
  else
    ListBox1.Tag  := ListBox1.ItemIndex;
end;