- Alinhamento de Texto em LABEL

[Igor C. Menin 0]

Pessoal, assim, estou precisando de alinhar o valor que será digitado num EDIT do lado direito. ou tipo assim, que o usuário comece a digitar os valores e que ele tenha que preencher tambem os centavos para que possa sair o valor correto.

 

Agora que eu tornei a ler o topico vi que não é o LABEL que eu quero saber mas sim um EDIT. hehe desculpa aí...

[marcio.theis 3]

Como o funcionamento em bancos ? Onde o preenchimento é da direita para esquerda ?

[Igor C. Menin 0]

assim mesmo.. mas e que na hora que sai do campo os digitos fiquem alinhados do lado direito.. tipo assim eu jah ia esquecendo.. tem como colocar tipo uma mascara para od digitos de centavos, pois tentei usar o MaskEdit mas não deu...

[Yoshi 1]

Twenta o seguinte codigo brider:

 

function TForm1.AlinhaEdit(Edt: TEdit): TEdit;

var

n: Integer;

c: TCanvas;

h: HWND;

 

begin

 

c := TCanvas.Create;

c.Handle := GetDeviceContext(h);

c.Font := Edt.Font;

n := round((Edt.Width - c.TextWidth(Edt.Text) - 8) / c.TextWidth( ' '));

Edt.Text := stringofchar(' ', n) + Edit1.Text;

Result := Edt;

 

end;

 

procedure TForm1.Edit1Exit(Sender: TObject);

begin

AlinhaEdit(Edit1);

end;

 

procedure .Edit1Enter(Sender: TObject);

begin

(Sender as TEdit).text := trim((Sender as TEdit).text);

end;

 

flw abs

[Yoshi 1]

Qual quer coisa manda seu e-mail q eu mando um exemplo q eu tenho aki