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.