Alinear contenido en dbEdit.

[setry2]

Hola a todos,

Una tontería. ¿Se puede alinear el contenido de un dbEdit desde el control? Un saludo.

[delphi.com.ar]

Podés crear tu propio componente similar a esto....

type
  TMyDBEdit = class(TDBEdit)
  private
    FAlignment: TAlignment;
    procedure SetAlignment(const Value: TAlignment);
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
  published
    property Alignment : TAlignment read FAlignment write SetAlignment default taLeftJustify;
  end;

implementation

procedure TMyDBEdit.CreateParams(var Params: TCreateParams);
const
  Alignments: array[TAlignment] of Longint = (ES_LEFT, ES_RIGHT, ES_CENTER);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or Alignments[FAlignment];
end;

procedure TMyDBEdit.SetAlignment(const Value: TAlignment);
begin
  if FAlignment <> Value then begin
    FAlignment := Value;
    RecreateWnd ;
  end;
end;

Creo que no me olvidé de nada, Suerte!