Item mit ListBox-Eigenschaft markieren???

[marabu]

Guten Morgen,

es gibt leider keine Möglichkeit ein Item einer Listbox zur Entwurfszeit zu markieren - ist aber auch nicht wirklich notwendig. Zur Laufzeit muss man unterscheiden, ob MultiSelect True oder False ist:

Delphi-Quellcode:

// ListBox.MultiSelect := False;
procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  with ListBox do
    ItemIndex := Random(Items.Count);
end;

// ListBox.MultiSelect := True;
procedure TDemoForm.ButtonClick(Sender: TObject);
var
  i: Integer;
begin
  with ListBox do
  begin
    i := Random(Items.Count);
    Selected[i] := not Selected[i];
  end;
end;

Ist MultiSelect = True, dann steuert ItemIndex nur den Fokus.

Grüße vom marabu