ListBox => Markierter Eintrag

[Tommy1988]

Im Beispiel wird eine Datei via OpenDialog in die ListBox gepackt:

Delphi-Quellcode:

begin
     a := ListBox1.Items.Count -1;
     ListBox1.Items.AddStrings(Opendialog1.Files);
     ListBox1.ItemIndex := a + 1;
     ListBox1.Tag := ListBox1.ItemIndex;
end;