No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Adicionandole un ScrollBar Horizontal a un TListBox.

delphi

MaxWidth := 0;
for i := 0 to ListBox1.Items.Count - 1 do
  if MaxWidth < ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]) then
    MaxWidth := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]);
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+100, 0);

Saludos!