TListBox - Markierung bestimmter Elemente verbieten

[H3v3n]

Hallo,
sorry, falls es einen derartigen Thread schon einmal gab, aber ich habe bisher ohne Erfolg gesucht.

Ich möchte in einer TListBox verhindern, dass bestimmte Items selektiert werden können. Dies soll aber nur einige Items betreffen, nicht alle. Ich habe bisher auch noch keine elegante Lösung selbst gefunden, daher möchte ich euch mal fragen ...

Über antworten würde ich mich sehr freuen,
H3v3n

[Lannes]

Hallo,

ob die Lösung elegant genug ist?

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex in [1,2] then
  ListBox1.ItemIndex := ListBox1.Tag
  else
    ListBox1.Tag  := ListBox1.ItemIndex;
end;

Item 1 und 2 kann so nicht selektiert werden,
eventuell ListBox1.Tag noch vorher richtig initialisieren(z.B. Form create?)

[H3v3n]

Nein, das bringt leider noch nicht die gewünschte Lösung, weil das Item für eine kurze Zeit selektiert wird, soweit war ich auch schon ...

[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;