DBEdit

{
  TAlignEdit: TDBEdit padrão com propriedade de alinhamento by e_gama
  emerson@salesiano.com.br
}
unit AlignEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls;

type
  TAlignEdit = class(TDBEdit)
  private
    FAlinhamento: TAlignment;
    procedure SetAlinhamento(const Value: TAlignment);
  protected
  public
    constructor Create(AOwner: TComponent); override;
    procedure CreateParams(var Params: TCreateParams); override;
  published
    property Alinhamento: TAlignment read FAlinhamento   write SetAlinhamento;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents(´e_gama´, [TAlignEdit]);
end;

constructor TAlignEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

procedure TAlignEdit.CreateParams(var Params: TCreateParams);
const Alin: array[TAlignment] of Cardinal = (ES_LEFT, ES_RIGHT, ES_CENTER);
begin
  inherited;
  Params.Style := Params.Style + Alin[FAlinhamento];
end;

procedure TAlignEdit.SetAlinhamento(const Value: TAlignment);
begin
  FAlinhamento := Value;
  RecreateWnd;
end;

end.