Сделать горизонтальную прокрутку в ListBox
Эта программа создает горизонтальную полосу прокрутки в ListBox, чтобы все строки компонента умещались. procedure TForm1.FormCreate(Sender: TObject);var
i: integer;
maxWidth: integer;
begin
maxWidth := 0;
with ListBox1 do
for i := 0 to Items.Count - 1 do
if maxWidth < Canvas.TextWidth(Items.Strings[i])
then maxWidth := Canvas.TextWidth(Items.Strings[i]);
ListBox1.Perform(LB_SETHORIZONTALEXTENT, maxWidth + 10, 0);
end;
