Edit

Question

Alguem sabe se � poss�vel, e como se faz se poss�vel, para alinhar o valor digitado de um edit a direita do mesmo.desde de j� agrade�o. e aos moderadores tamb�m, pq sempre ajudam....

Marcelo Saviski · Answer

Da uma olhada aqui: //delphiforum.icft.com.br/forum/viewtopic.php?t=28749&highlight=...

Lucianolazzari · Answer

Mas n�o existe nenhuma forma de realizar este processo atrav�s de um Edit? Afinal n�o posso encher o meu form de memos, iria ficar muito pesado....

Beppe · Answer

[quote:8ec7ffe9fe=�lucianolazzari�]Mas n�o existe nenhuma forma de realizar este processo atrav�s de um Edit? Afinal n�o posso encher o meu form de memos, iria ficar muito pesado.[/quote:8ec7ffe9fe]Pesado? Por que?...

Anorex · Answer

Na se��o programa��o tem o que vc quer.o site � meio besta.... � que eu sou p�ssimo web designer e naum tenho paci�ncia com html....//geocities.yahoo.com.br/adoroprogramar/...

Beppe · Answer

J� que a demanda disto t� ficando grande, eu escrevi isto. Voc� n�o precisa mudar de controle.

Para usar, modifique a Tag dos edits.
Tag = 0, alinha � esquerda.
Tag = 1, centraliza.
Tag = 2, alinha � direita.
Chame PatchEdits com o controle que abriga os edits, ou abriga controle que abriga os edits, e assim recursivamente.
Ex: PatchEdits(Form1); { adicione AtHacks1 ao uses ]

Aten��o crian�as, n�o fa�am isso em casa!

unit AtHacks1;
// Copyright (c) 2003 Ataliba
// Todos os direitor reservados

interface

uses
  Controls;

procedure PatchEdits(Parent: TWinControl);

implementation

uses
  Windows, StdCtrls;

{ TRighteousEdit }

type
  TRighteousEdit = class(TEdit)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

  TWickedEdit = class(TRighteousEdit);

procedure TRighteousEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or Cardinal(Tag);
end;

procedure PatchEdits(Parent: TWinControl);
var
  I: Integer;
  Edit: TControl;
begin
  with Parent do
    for I := 0 to ControlCount - 1 do
    begin
      Edit := Controls[I];
      if (Edit.ClassType = TEdit) then
      begin
        TClass(Pointer(Edit)^) := TRighteousEdit;
        if TWickedEdit(Edit).HandleAllocated then
          TWickedEdit(Edit).RecreateWnd;
      end;
      if Edit is TWinControl then PatchEdits(TWinControl(Edit));
    end;
end;

end.

Fa�am bom uso.

Lucianolazzari · Answer

Desde j� agrade�o pelo que j� foi fornecido. 2 coisas:
1) a primeira solu��o �ra completamente absurda para mim, pois colocar memos de tamanhos de edits e implementar fun��es para verifica��o do que seria digitado, porque j� estou evitando usar componentes e fa�o as fun�oes manuais para edits receberem apenas numeros, ou valores tipos R$ 100,00 e com mais essa do memo iria tirar muito da performace da minha aplica��o. Mas valeu pela dica.
2) a unit enviada foi de grande ajuda, e ajudou muito para o meu aprendizado em determinados pontos q ainda nao conhecia, por�m ela alinha todos os edits da maneira que determinarmos e no caso de alguem querer alinhar somente os que contem valores numericos?

T+ Obrigado pela for�a