Die Eingaberichtung ändern

[SirThornberry]

ein Edit mit alignment kannst du selbst erstellen

Delphi-Quellcode:

type
  TAlignEdit = class(TEdit)
  private
    fAlignment : TAlignment;
  public
    procedure SetAlignment(const Value: TAlignment);
    procedure CreateParams(var Params: TCreateParams);override;
  published
    property Alignment : TAlignment read fAlignment write SetAlignment;
  end;
[...]
procedure TAlignEdit.SetAlignment(const Value: TAlignment);
begin
  if Value <> fAlignment then
  begin
    fAlignment := Value;
    RecreateWnd; // erzeuge Fenster neu -> CreateParams
  end;
end;

procedure TAlignEdit.CreateParams(var Params: TCreateParams);
const
  cAlignStyles: array [TAlignment] of Cardinal = (ES_LEFT, ES_RIGHT, ES_CENTER);
begin
  inherited;
  with Params do
    Style := Style or cAlignStyles[fAlignment];//taRightJustify];
end;