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!