StringGrid如何使一行变成粗体？

Question

第三方控件可以吗？

Answer 1

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ARow = 1 then
  with TStringGrid(Sender).Canvas do
  begin
    Font.Style := Font.Style + [fsBold];
    TextOut(Rect.Left, Rect.Top, TStringGrid(Sender).Cells[ACol, ARow]);
  end;
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

advStringGrid 一样用(如楼楼上的）
如果出错将：TStringGrid(Sender) 改为你的TadvStringGrid控件名称