Und wozu soll das gut sein ?
Man braucht doch selbst dann nur dafür sorgen, daß genügend Zeilen für den sichtbaren Bereich vorhanden sind. Z.B. so in der Richtung :
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
for i := 1 to (ListBox1.Height DIV Listbox1.ItemHeight) do
ListBox1.Items.Add('');
end;
Kommen dann noch welche dazu, werden die auch wie vorher abwechselnd gefärbt. Aber ich sehe gerade, daß der Tip von Peter Below ist. Das erklärt einiges.
Wahrscheinlich ist der Code auch uralt.