Как автоматически проматывать ScroolBar?

← →
Guest2 (2002-11-05 12:56) [0]

в Memo при добавлении новых строк.

← →
Song © (2002-11-05 13:02) [1]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1036486181&n=0

← →
Guest2 (2002-11-05 13:05) [2]

Big senx

← →
Song © (2002-11-05 13:06) [3]

А то сам не видел соседний-то топик?

← →
Guest2 (2002-11-05 13:09) [4]

видел, там не то. И не работает чегото :(

← →
Guest2 (2002-11-05 13:11) [5]

Мне ScroolBar проматать надо.
PS Memo.ReadOnly:=true;

← →
Guest2 (2002-11-05 13:21) [6]

SelStart никак не влияет на положение двигунка ScroolBar

← →
Shrek © (2002-11-05 13:28) [7]

позиция

← →
Guest2 (2002-11-05 13:30) [8]

не понял?

← →
Shrek © (2002-11-05 13:31) [9]

ScrollBar1.Position;

там ещё есть ScrollBar1.min и ScrollBar1.max

← →
Guest2 (2002-11-05 13:37) [11]

Ага, только я скрол у меня: Memo.ScrollBars:=ssVertical;
Как в таком случае быть?

Что-то я тебя не пойму - вот код, Memo.ScrollBars:=ssVertical и Memo.ReadOnly:=true;
Все само перематывается автоматически. Можно раскомментировать вторую строку, если по каким-то причинам у тебя не так.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
memo1.Lines.add(inttostr(gettickcount));
//Memo1.Perform(EM_ScrollCaret,0,0);
end;

← →
Guest2 (2002-11-05 13:47) [13]

Так работает, а если Memo1.Text:=Memo1.Text+...+chr($0d)+chr($0a), то не хочет. Ну да ладно, я щас переделаю, спасибо.

Как автоматически проматывать ScroolBar? Найти похожие ветки