So bekommst du die horizontale Scrollbar hinn..
Delphi-Quellcode:
var LCount, LBreit, Ltmpbreit: Integer;
begin
LBreit := 0;
for LCount := 0 to CheckListBox1.Items.Count - 1 do
begin
Ltmpbreit := Checklistbox1.Canvas.TextWidth(CheckListBox1.Items.Strings[LCount]) + 25;
if Ltmpbreit > LBreit then LBreit := LtmpBreit;
end;
SendMessage(Checklistbox1.Handle, LB_SetHorizontalExtent, LBreit, LongInt(0));