Tamanho de um Memo
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
Curtidas 0
Respostas
Afarias
15/06/2004
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+
GOSTEI 0