ActiveDelphi

[Jotinha_Programador]

olá pessoal,

pra quem já teve dúvida em fazer uma memo autosize (conforme digita vai aumentando o tamanho) segue uma dica de umas das formas de se fazer isso, nao sei se ja foi postado isso aqui, é que talvez alguém ja teve essa dúvidida então resolvi postar por curiosidade...

então uma forma bem simples que eu sei é aumentar a altura do memo(heigth) pra isso é bem simples:

-criei essa função no form :

function Tform.AutoSizeMemoY(Memo: TMemo): word;
begin
Canvas.Font := Memo.Font;
Result := Canvas.TextExtent(Memo.Lines.Strings[0]).cy * Memo.Lines.Count + Canvas.TextExtent(Memo.Lines.Strings[0[/size]]).cy;
end;

-depois no evento onchange do memo faça o height do memo receber o valor da função para isto chame a função e passe o parâmentro::

procedure Tform.Memo1Change(Sender: TObject);
begin

Memo1.Height := AutoSizeMemoY(Memo1)

end;

e assim o memo automaticamente aumenta seu tamanho conforme é digitado o texto...

valeu galera espero ajudar alguém como muito ja me ajudaram aqui no fórum..


abraços...

[Batera]

Opa, obrigado pela contribuição, amigo!

[joemil]

isso ai. posta o codigo neste link:

http://www.activedelphi.com.br/forum/viewtopic.php?t=47655

ele é fixo e tem varias dicas
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/