rechtsbündige Eingabe im Stringgrid

[Hansa]

Ich habe mal kurzerhand eine Komponente draus gemacht :

Delphi-Quellcode:

unit sgExt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

procedure Register;

type
  TsgExt = class(TStringGrid)
  private
    { Private-Deklarationen }
    FAlignment: TAlignment;
    procedure SetAlignment(Value: TAlignment);
  published
    { Public-Deklarationen }
    property Alignment: TAlignment read FAlignment write SetAlignment;
  end;

implementation

// {$R *.dfm}

procedure TsgExt.SetAlignment (Value: TAlignment);
begin
  FAlignment := Value;
  RecreateWnd;
end;

procedure Register;
begin
  RegisterComponents('Eigene', [TsgExt]);
end;

end.

Zum testen dient vorerst das hier :

Delphi-Quellcode:

procedure TForm1.sgExt1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if sgExt1.Alignment = taRightJustify then
  showmessage ('12345'); 
end;

Ich habe das Alignment umgestellt und lande auch an dieser Stelle. Die Frage ist nun, wie es weiter geht. Die ShowMessage kommt schon mal und die Frage ist, wie es auszuwerten ist.