مشکل با متد ScrollBy مربوط به TAdvMemo

[BORHAN TEC]

سلام
من در برنامه ای مجبور به استفاده از TAdvMemo محصول شرکت tms software هستم. من با متد ScrollBy این کامپوننت مشکل دارم.
وقتی من از کد زیر استفاده می کنم:
procedure TForm3.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to 100 do
begin
AdvMemo1.Lines.Add(IntToStr(I));
AdvMemo1.ScrollBy(0,2000);
Application.ProcessMessages;
end;
end;
در حین اجرای کد کامپوننت AdvMemo1 اسکرول نمی شود و Scrollbar در همان بالا باقی می ماند.
آیا برای رفع این مشکل من باید تنظیمات خاصی را انجام دهم؟؟؟

با تشکر...

[BORHAN TEC]

خودم فهمیدم :لبخند:
باید از کد زیر استفاده کنیم:
procedure TForm3.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to 100 do
begin
AdvMemo1.Lines.Add(IntToStr(I));
AdvMemo1.CurY := AdvMemo1.Lines.Count;
Application.ProcessMessages;
end;
end;