Listbox Scrollt horizontal statt vertikal

[torud]

Hallo Wissende,

ich habe ein kleines Problem mit meiner Listbox. Ich nutze Sie nur zum anzeigen meines Array-Inhaltes, zur besseren Übersicht für den User. Ich zeige dem User nur bestimmte Daten aus dem Array in der Listbox an. Ich schreibe dann folgendes in die Listbox:

Delphi-Quellcode:

ListBox1.Items.Add(MyData[0,i] + #9 + MyData[1,i] + #9 + MyData[2,i] + #9 + MyData[8,i]);

Ich schreibe also mehrspaltig in die Listbox. Nun mein Problem! Wenn ich an die Stelle gekommen bin, wo eigentlich eine Scrollbar erscheinen müsste, passiert da unfassbare. Die Listbox schreibt nicht nach unten weiter, sondern nach rechts, erzeugt also einen Scrollbalken am unteren Rand des Controls. Die Inhalt sind alle richtig, nur vermute ich, dass "meine" User damit nicht klar kommen. Was schlgt Ihr vor? Soll ich eine andere Komponente nehmen ? Stringgrid oder so ?

Danke für Eure Tipps
Tom

[Luckie]

Delphi-Quellcode:

SendMessage(Listbox1.Handle, LB_SETHORIZONTALEXTENT, 600, 0);

[torud]

Hi Luckie,

ich weiß zwar nicht, was das bewirken soll und wo ich den Codefetzen notieren soll, habe es aber mal in OnFormCreate geschrieben und festgestellt, dass sich da nichts ändert. Leider.

Komischerweise meckert er nun beim zweiten mal, wo ich es kompiliert habe, dass er LB_Send_Message nicht kennt. Zu welcher Unit gehört das denn ?

War es mein Fehler oder passt der Code nicht !?
Danke
Tom

[Luckie]

Ist deine Listbox eventuell von vorneherein schon breiter als 600 Pixel?

[torud]

Ja in der Tat, das ist Sie sie. Sie ist mind. 664 Pixel breit. Wenn der User den Max.-Button der Application benutzt, dann wird´s sogar noch breiter.

[Luckie]

Na also, dann setzt mal eine größere zahl für die 600 ein.

Aber schon mal an einen Liustview gedacht? :roll: Der hat alles, was du dir wünschst von Haus aus: Spalten, horizontales srollen, nach Spalten sortieren, ...

[torud]

Danke erstmal für Deinen Tipp, aber auch mit einem grösseren Wert hats nicht geklappt. Kein Problem. Ich werde mir das mal mit der Listview ansehen. Hoffentlich ist die nicht so schwer zu händeln mit hinzufügen und löschen und so. Naja mal sehen.

Ansonsten gibts ja immer noch das gute alte Stringgrid!
Tom

[Luckie]

Geht wunderbar:
Listbox im OI 700 Pixel breit und dieser Code:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SendMessage(Listbox1.Handle, LB_SETHORIZONTALEXTENT, 750, 0);
end;

.
Da nach hat die Listbox eine horizontale Scrollbar.