ListBox - horizontaler Scrollbalken

Futurama

Hallo Leute!

Ich suche nach einer Möglichkeit in einer TListBox oder einer TCheckListBox einen horizontalen Scrollbar hinzubekommen.

Weiß jemand Rat?

[ 17.08.2001: Beitrag editiert von: Jansen ]

Jansen

Damit wird die Scrollbar an den derzeit längsten Eintrag angepasst, bei Änderungen der Einträge muss der Code ggf. wiederholt aufgerufen werden.

int MaxWidth = 0;
for (int i = 0 ; i < ListBox1->Items->Count ; i++)
{
  MaxWidth = max(MaxWidth,
  ListBox1->Canvas->TextWidth(ListBox1->Items->Strings[i]));
}
SendMessage(ListBox1->Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0);

[ 17.08.2001: Beitrag editiert von: Jansen ]