Can CheckListBox wrap a long text?

[asdf]

I have a CheckListBox but it's width is too narrow to display some long lines of text.
So, the end of such text is out of the box.

[asdf]

 

[ivan17]

if you're in a hurry, set the caption to empty string and add a label component to the right.

[Phil]

if you're in a hurry, set the caption to empty string and add a label component to the right.

Doesn't that kind of defeat the whole purpose of a _scrolling_ list box?

I can't think of any solution offhand other than intercepting the event when an item is checked and displaying its full text in a TLabel below the list box. Of course the user would likely want to see the full item before checking it...

Thanks.

-Phil

[asdf]

If I use this technique ..

procedure TForm1.CheckListBox1MouseEnter(Sender: TObject);
begin
  CheckListBox1.ShowHint:=true;
  if the mouse cursor is on an item(either is checked true or false) and with no clicking.
  CheckListBox1.Hint:=Text of such item;
end;     

Please help writing codes for above 2 red-colored lines. 
                                     

[ivan17]

Code: Pascal  [Select][+][-]

1. procedure TForm1.CheckListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
2. var i: integer;
3. begin
4.   i := CheckListBox1.ItemAtPos(Point(X,Y), true);
5.   if i = -1 then Exit;
6.   CheckListBox1.Hint := CheckListBox1.Items[i];
7.   if i <> HintLastIndex then begin
8.     Application.ActivateHint(CheckListBox1.ClientToScreen(Point(X,Y)));
9.     HintLastIndex := i;  // prevents flicker
10.   end;
11. end;
12.  
13.  

could use a bit of tweaking. HintLastIndex is a global var or form field (set to -2 at start, mossibly on mouseleave as well)