Die Suche wird zuviel liefern. "Zentriert" brauche ich nicht, aber das hier habe ich gefunden :
Delphi-Quellcode:
procedure sgZentriert (sg: TStringGrid; Rect: TRect; ACol, ARow:Integer);
var st: String;
begin
sg.Canvas.FillRect(Rect);
st := sg.Cells[ACol,ARow];
DrawText(sg.Canvas.Handle, PChar(st), StrLen(PChar(st)),Rect,DT_CENTER);
end;
Aufruf im OnDrawCell wäre dann so ungefähr :
Delphi-Quellcode:
if (ACol = 2) then
sgZentriert (Sender as TStringGrid, Rect, ACol, ARow);
Lässt sich sicherlich noch verbessern, aber das geht schon.