Listbox mit Bildlaufleiste erstellen?

[nixalsverdruss]

Hallo,
wie erstelle ich ne Listbox mit Bildlaufleiste? Per edits werden immer neue Zeilen hinzugefügt. Ist der Eintrag länger als die Listbox soll eine Bildlaufleiste erscheinen. Wie geht das?
Danke schon mal im Voraus
nixalsverdruss

[craash]

geht das nicht automatisch bei einer TListbox?

[nixalsverdruss]

also bei mir nicht. Quellcode:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
zeile1:=edit1.Text+'        '+edit2.Text+'        '+edit3.Text+'        '+edit4.Text;
ListBox1.Items.Add(zeile1);
end;

[craash]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
     for i:=1 to 20 do
         begin
         listbox1.Items.Append('hallo');
         end;
end;

sobald mehr einträge in der listbox sind als angezeigt werden können, entsteht am rechten rand eine scrollbar.
war es nicht das was du meintest?


/edit: ah mist wenn ich nochmal drüberles meinst du eine vertikale scrollbar oder?
dann entschuldige ich mich^^. das problem hatte ich mal in vb und musste am ende eben die listbox vergrößern

[nixalsverdruss]

Nein sorry...am unteren Rand soll ne Bildlaufleiste kommen , wenn die Zeile zu lang wird.

[nixalsverdruss]

nein keine vertikale sondern eine horizontale Bildlaufleiste....

[taaktaak]

na, dann versuch mal dies

Delphi-Quellcode:

SendMessage(Listbox1.Handle,
            LB_SetHorizontalExtent,
            Listbox1.Width,
            Longint(0));

z.B. im OnCreate des Forms