如何使ListBox里某行的字体加粗？(100分)

procedure TForm1.CbBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with cbBox1 do
begin
canvas.font.style:=[fsbold];
Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
end;
end;

你可以改一改

设置ListBox的ListBox1.Style := lbOwnerDrawVariable;
然后在他的OnDrawItem中写代码：
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if Index = 1 then
ListBox1.Canvas.Font.Style := [fsBold];
ListBox1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;

谢谢大家了~