Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Вниз
Как автоматически проматывать 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;
← →
Shrek (2002-11-05 13:32) [10]там ещё есть ScrollBar1.min и ScrollBar1.max
← →
Guest2 (2002-11-05 13:37) [11]Ага, только я скрол у меня: Memo.ScrollBars:=ssVertical;
Как в таком случае быть?
← →
MBo (2002-11-05 13:42) [12]Что-то я тебя не пойму - вот код, 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), то не хочет. Ну да ладно, я щас переделаю, спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c
