StringGrid rechsbündig

[ibp]

oder hier...

Delphi-Quellcode:

...
    aStr:=stringrid1.Cells[Acol,Arow]+' '; // ' ': visueller Sinn (text>Linie)
    if aStr<>' ' then 
    begin
      stringrid1.Canvas.FillRect(Rect); // alten text löschen
      DrawText(stringrid1.Canvas.Handle,
               pChar(aStr),
               Length(aStr),
               Rect,
               DT_RIGHT or DT_VCENTER or DT_SINGLELINE); // text neu schreiben
    end; // if
...

... das ganze im OnDrawCell ereignis...