Рациональней использовать ListView...
Вот еще один способ:
| Код |
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Style := lbOwnerDrawVariable;
ListBox1.Items.Add('Current Time: ');
end;
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with ListBox1 do
begin
Canvas.FillRect(Rect);
Canvas.Textout(Rect.Left + 5, Rect.Top, ListBox1.Items[Index]);
Canvas.Textout(Rect.Left + ListBox1.Width - 80, Rect.Top, TimeToStr(now));
if odFocused in State then
Canvas.DrawFocusRect(Rect);
end;
end;
|
|
)