DBEdit
20/05/2003
0
Por Favor, como alinhar o conteudo de uma DBEdit na direita.
Grato.
Grato.
Rubens Junior
Curtir tópico
+ 0
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
Clique aqui para fazer login e interagir na Comunidade :)