1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

type
  tRightEdit = Class (tEdit)
  Protected
    Procedure CreateParams (var Params: tCreateParams); override;
  End;

Procedure Register;

Implementation

Procedure Register;
Begin
  RegisterComponents('Samples',  [tRightEdit]);
End;

{ tRightEdit }

Procedure tRightEdit.CreateParams (var Params: tCreateParams);
Begin
  Inherited CreateParams (Params);
  Params.Style := Params.Style or ES_RIGHT;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Stringgrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s:string;
begin
  with (sender as Tstringgrid) do
    begin
      //Zellhintergrund  (jede zweite Zeile blau)
      if (arow mod 2) = 0 then canvas.brush.color:=clblue
                          else canvas.brush.color:=clwhite;
      if gdfixed in state then canvas.brush.color:=fixedcolor;
      canvas.fillrect(rect);

      //jede zweite splate rechtsbündig
      s:=cells[acol,arow];
      if (acol mod 2) = 0 then
        canvas.textrect(rect,rect.Right-canvas.textwidth(s)-2,rect.top+2,s)
       else
        canvas.textout(rect.left+2,rect.top+2,s);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  sz: TSize;
  x: Integer;
  s: String;
begin
  s := StringGrid1.cells[ACol,ARow];
  sz := StringGrid1.Canvas.TextExtent(s);
  x := Rect.Right-Rect.Left-sz.cx-2;
  StringGrid1.Canvas.TextOut(x, Rect.Top, s);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0,0] := 'Hello World';
  StringGrid1.DefaultDrawing := False;
end;