Программно скроллировать текуст в tmemo

← →
karlsn (2004-06-09 10:46) [0]

Подскажите, мне надо реализовать подсказку, я хочу что бы текст скролиировался в мемо1 медленно.
вот процедура которой я пользуюсь
procedure scroll; Var ScrollMessage:TWMVScroll; i:integer; begin ScrollMessage.Msg:=WM_VScroll; for i := 1 DownTo 0 do begin ScrollMessage.ScrollCode:=sb_LineDown; ScrollMessage.Pos:=ScrollMessage.Pos+350; Memo1.Dispatch(ScrollMessage); end;\
Но когда двигаешь мышью по форме, то двмжение начинает ускоряться. Как от этого избавиться?
Или можно реализовать это с помощью другого кода?

← →
VAleksey © (2004-06-09 11:04) [1]

Почемы бы не использовать EM_LINESCROLL ?

← →
karlsn (2004-06-09 16:40) [2]

> Почемы бы не использовать EM_LINESCROLL ?

Я пробовал, но минимум прокручивать можно на одну строку и плавности неполучается, кажется будто он едет урывками, но проблема с мышкой решается.... нет надо другой способ.

← →
[BAD]Angel (2004-06-09 16:43) [3]

отключай влияние мыши на компоненту

← →
karlsn (2004-06-09 19:59) [4]

> отключай влияние мыши на компоненту

как это? поподробнее... кстати когда водишь по экрану ничего а когда по форме то ускоряется...

ИМХО, необходимо блокировать-разблокировать update, и лучше сделать в отдельном потоке. чтобы передача фокусов, перерисовка и прочее не влияла на скорость отработки требуемого.

и вот здесь все верно?

> for i := 1 DownTo 0 do

сколько раз отрабатывает этот цикл? :)

← →
karlsn (2004-06-10 17:04) [6]

может есть другие способы прокрутки?

Программно скроллировать текуст в tmemo Найти похожие ветки