Testo à direita.
18/01/2006
0
Boas Pexoal, gostava de saber como poxo por o texto de uma laberedit á direita dela.
Desde já, obrigado pela ajuda.
Desde já, obrigado pela ajuda.
Rui Lisboa
Curtir tópico
+ 0
Responder
Posts
19/01/2006
Rui Lisboa
Eu não quero a label, mas sim o texto k está dentro da edit.
Responder
19/01/2006
Firekiller_am
ver se isso te ajuda
//ALINHAR TEXTO DO EDIT À DIREITA
procedure TForm1.Edit1Exit(Sender: TObject);
var
n: Integer;
c: TCanvas;
h: HWND;
// pode se usar Form1.Canvas se for a mesma fonte do Edit
begin
c := TCanvas.Create;
c.Handle := GetDeviceContext ;
c.Font := Edit1.Font;
Pow fim de Ano esta ai e eu sem Dinheiro diz:
n := round((Edit1.Width - c.TextWidth(Edit1.Text) - 8) / c.TextWidth(\ ´ \´));
Edit1.Text := stringofchar(\ ´ \´, n) + Edit1.Text;
end;
procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.Text := Trim(Edit1.Text);
end;
abraços..
//ALINHAR TEXTO DO EDIT À DIREITA
procedure TForm1.Edit1Exit(Sender: TObject);
var
n: Integer;
c: TCanvas;
h: HWND;
// pode se usar Form1.Canvas se for a mesma fonte do Edit
begin
c := TCanvas.Create;
c.Handle := GetDeviceContext ;
c.Font := Edit1.Font;
Pow fim de Ano esta ai e eu sem Dinheiro diz:
n := round((Edit1.Width - c.TextWidth(Edit1.Text) - 8) / c.TextWidth(\ ´ \´));
Edit1.Text := stringofchar(\ ´ \´, n) + Edit1.Text;
end;
procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.Text := Trim(Edit1.Text);
end;
abraços..
Responder
Clique aqui para fazer login e interagir na Comunidade :)