Как программно проскролить текст в memo ?

← →
CAMCOH © (2004-11-03 21:03) [0]

Нашёл вот такой вариант

memo1.Perform(WM_VScroll, SB_LINEDOWN,0);

но delphi непонимает WM_VScroll почемуто...

← →
Игорь Шевченко © (2004-11-03 22:40) [1]

Наверное потому, что uses Messages не указано ?

← →
CAMCOH © (2004-11-04 08:42) [2]

Spasibo :)

← →
Boban (2004-11-05 10:22) [3]

Все это хорошо, а кто знает, как организовать ПЛАВНЫЙ скроллиг в мемо и RichEdit ?

← →
Ученик (2004-11-05 21:46) [4]

Видел тут такой код

var i: Integer = 0; procedure TForm1.Timer1Timer(Sender: TObject); var r : TRect; begin r:=memo1.clientrect; inc(i); R.Top := R.Top - i; memo1.Lines.BeginUpdate; memo1.perform(em_setrectnp,0,Integer(@r)); memo1.Lines.endUpdate; end;

← →
Игорь Шевченко © (2004-11-05 22:16) [5]

> Все это хорошо, а кто знает, как организовать ПЛАВНЫЙ скроллиг
> в мемо и RichEdit ?

1. Вопросы задаются каждый в своей ветке.
2. ScrollWindowEx с SW_SMOOTHSCROLL в flags.

← →
Ученик (2004-11-05 22:54) [6]

>Игорь Шевченко © (05.11.04 22:16) [5]

Если не затруднит, пример рабочего кода ?

← →
Игорь Шевченко © (2004-11-05 23:22) [7]

Ученик (05.11.04 22:54) [6]

Готового нету, если писать, то попозже, ок ?

← →
Ученик (2004-11-05 23:29) [8]

Ученик (05.11.04 23:29) [8]

На всякий случай, черкани письмо на whitefranz@hotmail.com, чтобы не потеряться.

← →
Boban (2004-11-10 10:04) [10]

Проблема не в собственно плавной прокрутке, а в организации "подкачки" новых выплывающих строк RichEdit. Игорь, есть соображения по этому поводу ?
Спасибо.

> а в организации "подкачки" новых выплывающих строк RichEdit.

Насколько мне известно, эта функцинальность уже заложена в Edit-controls, в том числе и в RichEdit

Как программно проскролить текст в memo ? Найти похожие ветки