Горизонтальная прокрутка в CheckListBox

[Trikster]

вот тут проблема

Application.MainFormOnTaskbar := True;

а так без этого все прекрасно работает

[Trikster]

Возможно проблема в том, что items должны быть заполнены заранее? у меня же они заполняются во время выполнения программы, в итоге скроллбар есть, а самой прокрутки нету!

[Trikster]

Проблема решилась путем возврата к стандартному CheckListBox и вызовом процедуры(оформил как процедуру) после изменения items.

procedure CLBHorizontalScrollBar(CL: TCheckListBox);
var
  i, MaxWidth:integer;
begin  MaxWidth := 0;
  for i := 0 to CL.Items.Count - 1 do
    if MaxWidth < CL.Canvas.TextWidth(CL.Items.Strings[i]) then
      MaxWidth := CL.Canvas.TextWidth(CL.Items.Strings[i]);
  SendMessage(CL.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+20, 0);
end;

вызов:

CLBHorizontalScrollBar(CheckListBox1);

спасибо всем за ответы!