Wieso soll das mit dem Standardgrid nicht gehen ?
Delphi-Quellcode:
procedure sgRechts (Sender: TObject; Rect: TRect; ACol, ARow:Integer);
var st: String;
begin
with Sender as TExtStringGrid do begin
Canvas.FillRect(Rect);
st := Cells[ACol,ARow];
InflateRect(rect,-2,-2);
DrawText(Canvas.Handle, PChar(st), StrLen(PChar(st)),Rect,DT_RIGHT);
end;
end;
Die Prozedur muss nur im OnDrawCell des Grids aufgerufen werden.