Delphi-Quellcode:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
// Alle Spalten rechtsbündig
WriteTextAligned(TStringGrid(Sender).Canvas, Rect, taRightJustify, TStringGrid(Sender).Cells[Acol, ARow]);
end;
Aktiviere mal das Ereignis OnDrawCell im Objektinspektor und setze dann den
obigen Code ein. So geht es bei mir.