[Revolution2010]

Что нужно прописать чтобы прокрутка (а их две может быть - вертикальная и горизонтальная) всегда шла вниз! Допустим грузится txt, и нужно чтобы прокрутка перешла в конец текста сразу после загрузки!

[AlexSku]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    with Memo1 do
    begin
      Lines.Clear;
      Lines.LoadFromFile(OpenDialog1.FileName);
      SetFocus;
      SelStart:= Length(Lines.Text) ;
      SelLength:= 0;
    end;
end;