No evento OnChange do Memo, faça o seguinte:
procedure TForm1.Memo1Change(Sender: TObject);
var
aMemoHeight : Integer;
begin
aMemoHeight := (Memo1.Font.Height * -1) * (Memo1.Lines.Count + 2);
if aMemoHeight > Memo1.Height then
Memo1.Height := aMemoHeight;
end;
O código tá feio, mas já dá uma idéia do que dá pra fazer.
Rodrigo
2009/2/12 Fellipe Henrique <felli...@gmail.com>
> A intenção não é deixar rolar o texto.. é justamente ao contrário..
> crescer
> de acordo com o texto, pra evitar a rolagem.
>
> []s
>
> 2009/2/12 Jackson Gomes - Tools&Comps
> <jack...@toolsandcomps.com<jackson%40toolsandcomps.com>
> >
>
>
> >
> > > Existe algum método que o TMemo, cresça a altura dele de acordo com a
> > > quantidade de linhas?
> >
> > Porque não usar as barras de rolagem? Basta ligá-las via Object
> Inspector.
> >
> > Jackson Gomes
> > Tools&Comps - Controle de Usuários para Desenvolvedores CodeGear
> > Web Site: http://www.toolsandcomps.com
> > Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
> > e-mail: jack...@toolsandcomps.com <jackson%40toolsandcomps.com><jackson%
> 40toolsandcomps.com>
> > Fone: 27 3389 1138 - 8811 0324
> > ----------------------------------------------------------
> > http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc....
> > ----------------------------------------------------------
> > Devhost - Webhost para desenvolvedores Delphi
> > http://www.devhost.com.br
> > devh...@devhost.com.br <devhost%40devhost.com.br> <devhost%
> 40devhost.com.br>
> >
> >
> >
>
> --
> _________________________________
> T.·.F.·.A.·.
> Fellipe Henrique
> Blog: www.digitumsoft.com.br/blogs/fellipeh
> ----------------------------------------------------------
> CAMPANHA POR UMA INTERNET SEGURA
> Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
> mensagens use SEMPRE o "Cco" (cópia oculta).
> Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
> um e-mail, delete todas as informações que apareçam no corpo do e-mail e
> que
> possam ser usadas por hackers.
> #######################################
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
