Rolar o TMemo para primeira linha

06/02/2006

Pessoal, acredito que essa seja uma d�vida simples. Tenho uma rotina que insere v�rios dados em um Memo. Mas ap�s inserir, o cursor do memo fica na �ltima linha. Queria saber como fazer para rolar o cursor para a primeira linha.

Obs.: Eu at� consegui fazer de outra forma que �nclusive ficou melhor. Eu fui adicionando os dados em uma TStringList e depois fiz Memo.Lines.AddStrings(Variavel_StringList). Dessa forma funcionou, mas eu queria saber de qualquer maneira se d� para fazer do outro jeito.

Grato.

Delphi32

Curtir t�pico + 0

Responder

Post mais votado

06/02/2006

A coisa mais �bvia � setar [b:0e9bee2114]SelStart[/b:0e9bee2114] para 0, como o colega [b:0e9bee2114]Edilcimar [/b:0e9bee2114]citou. Por�m, isso apenas desloca o cursor dentro do Memo, mas n�o rola a tela.

Adaptei a fun��o a seguir do site [url=http://delphi.about.com]About Delphi[/url]:

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

Note o seguinte: se vc quiser, pode chamar [b:0e9bee2114]BeginUpdate [/b:0e9bee2114]antes de inserir a linha, e [b:0e9bee2114]EndUpdate [/b:0e9bee2114]ap�s. Isso n�o ir� rolar o memo para baixo, e consequentemente n�o ser� necess�rio rol�-lo para cima depois.

[]�s

Michael

Responder

Gostei + 1

Mais Posts

06/02/2006

Edilcimar

Memo1.SetFocus;
Memo1.SelStart := 0;

Responder

Gostei + 0

05/01/2016

Bruno

Caso interesse a algu�m, alterei o procedimento do Michael para rolar todos os Memos do Form.

procedure TForm1.ScrollMemo(Direction: Integer);
var
  ScrollMessage: TWMVScroll;
  i, j: integer;
begin
  for i := 0 to Form1.ComponentCount - 1 do
  begin
    if Form1.Components[i] is TMemo then
    begin
      with (Form1.Components[i] as TMemo) do
      begin
        ScrollMessage.Msg := WM_VSCROLL;
        Lines.BeginUpdate;
        try
          for j := 0 to Lines.Count do
          begin
            ScrollMessage.ScrollCode := Direction;
            ScrollMessage.Pos := 0;
            Dispatch(ScrollMessage);
          end;
        finally
          Lines.EndUpdate;
        end;
      end;
    end;
  end;
end;

...

ScrollMemo(SB_LINEUP); // Rola para o in�cio
ScrollMemo(SB_LINEDOWN); // Rola para o final

Responder

Gostei + 1

05/01/2016

Raimundo Pereira

Tente
Memo1.lines[0];

Responder

Gostei + 0

09/08/2022

Bernelio

Tente
Memo1.lines[0];

O CORRETO �
SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEUP, 0);

att.
Bern�lio

Responder

Gostei + 0

12/02/2024

Gilberto

Memo1.SetFocus;
{ Mant�m pressionada "CTRL" }
Keybd_Event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
{ Pressiona "HOME" }
Keybd_Event(VK_HOME, 0, 0, 0);
{ Libera (solta) "CTRL" }
Keybd_Event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

Editado agora por Gavel

Responder

Gostei + 0

12/02/2024

Gilberto

Responder

Gostei + 0