Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quinta-feira, 7 de julho de 2016

DELPHI - Rolar o TMemo para o inicio ou final de sua tela / Roll the TMemo to the beginning or end of your screen

Reações: 
Retirado do site: http://www.devmedia.com.br/forum/rolar-o-tmemo-para-primeira-linha/311919


procedure ScrollMemo(Memo: TMemo; Direction: Integer);
var
  ScrollMessage: TWMVScroll;
  I: Integer;
begin
  ScrollMessage.Msg := WM_VSCROLL;
  Memo.Lines.BeginUpdate;
  try
    for I := 0 to Memo.Lines.Count do
    begin
     ScrollMessage.ScrollCode := Direction;
     ScrollMessage.Pos := 0;
     Memo.Dispatch(ScrollMessage);
    end;
  finally
    Memo.Lines.EndUpdate;
  end;
end;
 
...
 
ScrollMemo(Memo1, SB_LINEUP); // Rola para o início
ScrollMemo(Memo1, SB_LINEDOWN); // Rola para o final

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer