Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.27;
Скачать: CL | DM;

Вниз

Программно скроллировать текуст в 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]


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

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


 
KilkennyCat ©   (2004-06-10 02:15) [5]

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

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

> for i := 1 DownTo 0 do

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2004.06.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
14-1086857820
Ded Moroz
2004-06-10 12:57
2004.06.27
Теория по HDD


10-1013682234
flash1
2002-02-14 13:23
2004.06.27
Описание аналогичной проблемы в fido7.ru.delphi


14-1086772172
Gero
2004-06-09 13:09
2004.06.27
Вопрос по HTML: аналог cellspacing


14-1086687060
DelphiNew
2004-06-08 13:31
2004.06.27
OlAP компоненты


3-1086073144
Valeri
2004-06-01 10:59
2004.06.27
Visual Foxpro