Agregar texto en primera fila de TStringrid

[compuin]

Empezado por escafandra

Para eso tienes que pintar tú mismo las celdas. Te pongo un ejemplo:

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do
  begin
    // Dibujar texto centrado horizontal y verticalmente o a la derecha
    InflateRect(Rect, -1, -1);
    Canvas.FillRect(Rect);
    InflateRect(Rect, -3, -3);
    DrawText(Canvas.Handle, PAnsiChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]), Rect,
      DT_CENTER or DT_VCENTER or DT_SINGLELINE);   // Texto centrado en la celda
//      DT_RIGHT or DT_VCENTER or DT_SINGLELINE);   // Texto alineado a la derecha en la celda
  end;
end;

Saludos.

Me sale el error Expected '='('found. en una pequena ventana