Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как перетащить целую колонку из TStringGrid в TListBox?

01.01.2007

После того, как поместите TListBox на форму, необходимо изменить свойство Style в TListBox на lbOwnerDrawFixed. Если не изменить свойство Style, то событие OnDrawItem никогда не вызовется. Теперь поместите следующий код в обработчик события OnDrawItem Вашего TListBox:

procedure TForm1.ListBox1DrawItem
 
(Control: TWinControl; Index: Integer;
 
Rect: TRect; State: TOwnerDrawState);
var
    myColor
: TColor;
    myBrush
: TBrush;      
begin
  myBrush
:= TBrush.Create;  
 
with (Control as TListBox).Canvas do
 
begin
   
if not Odd(Index) then
      myColor
:= clSilver
   
else
      myColor
:= clYellow;
 
    myBrush
.Style := bsSolid;
    myBrush
.Color := myColor;
   
Windows.FillRect(handle, Rect, myBrush.Handle);
   
Brush.Style := bsClear;  
   
TextOut(Rect.Left, Rect.Top,
           
(Control as TListBox).Items[Index]);  
   
MyBrush.Free;
 
end;
end;

Взято из https://forum.sources.ru