DBEdit

20/05/2003

1

Por Favor, como alinhar o conteudo de uma DBEdit na direita.

Grato.


Responder

Posts

20/05/2003

Inutaishou

Creio eu que a única forma é colocando o tipo de campo para o qual o DBEdit está associado sendo numerico... Mas nesse caso só aceitará números...


Responder

20/05/2003

E_gama

Instale o componente abaixo. Ele tem uma propriedade alinhamento...

{
  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.



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira