Fórum Tamanho de um Memo #237859
15/06/2004
0
Aguém sabe dizer ou tem alguma idéia de como fazer com que um TMemo tenha sua propriedade Height alterada de acordo com a quantidade de linha que tenha escrita dentro dele?
Dgsfilho
Curtir tópico
+ 0
Responder
Posts
15/06/2004
Afarias
humm?? algo tipo::
procedure TForm1.Memo1Change(Sender: TObject);
var
H: Integer;
begin
H := Canvas.TextHeight(´A´); // altura da fonte (do form) em pixels
memo1.Height := (2*H) + (H * memo1.lines.Count);
end;
T+
procedure TForm1.Memo1Change(Sender: TObject);
var
H: Integer;
begin
H := Canvas.TextHeight(´A´); // altura da fonte (do form) em pixels
memo1.Height := (2*H) + (H * memo1.lines.Count);
end;
T+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)