ScrollWidth в ListBox1

[krikaved]

Есть ListBox1 и EditText1.
Текст с EditText1 записывается в ListBox1.
Как сделать, чтобы когда текст выходит за границы ширины ListBox1 появлялась горизонтальная полоса прокрутки, а когда не выходит за границы полоса прокрутки пропадала?

[bitSoft]

procedure SetHorizontalScrollBar(lb : TListBox) ;
var
  j, MaxWidth: integer;
begin
  MaxWidth := 0;
  for j := 0 to lb.Items.Count - 1 do
  if MaxWidth < lb.Canvas.TextWidth(lb.Items[j]) then
    MaxWidth := lb.Canvas.TextWidth(lb.Items[j]) ;

  SendMessage(lb.Handle,
              LB_SETHORIZONTALEXTENT,
              MaxWidth + 5, 0) ;
end;

//Example
//ListBox1.Items.Add(Edit1.Text);
//SetHorizontalScrollBar(ListBox1);

[krikaved]

Спасибо, всё работает!
Если бы я ещё знал что такое lb и что делает SendMessage!?

[bitSoft]

Сообщение от krikaved

Спасибо, всё работает!
Если бы я ещё знал что такое lb и что делает SendMessage!?

lb - TListBox
SendMessage - отправлять сообщения своим или других приложений, если вы знаете Handle,