TListbox Vertikale Skrollbar immer anzeigen

[LokutusvB]

Morgen,

ich habe schon ein wenig im Netz gesucht, konnte aber für mein Problem keine passende Lösung finden. Die meisten der Fragen beziehen sich auf das Ausblenden horizontaler Skrollbalken. Damit komme ich leider nicht weiter.

Ich möchte bei einer Listbox immer die vertikale Skrollbar anzeigen lassen, egal ob Text in der Listbox enthalten ist, oder nicht. Wie mache ich das?

[hathor]

Einfach Leerzeilen einfügen, z.B.:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var i : Integer;
begin
for i := 0 to 1999 do ListBox1.Items.Add('');
end;

[LokutusvB]

Daran hatte ich noch gar nicht gedacht. Allerdings sind diese leeren Zeilen dann auch wählbar. Gibt es noch eine andere Möglichkeit?

[Faxe]

So würde es eventuell auch gehen:

Delphi-Quellcode:

listbox1.Style:=lbVirtual;
listbox1.Count:=199