平滑滚动的奥妙！（高手请指点）(200分)

dropme · 2004-04-06

想实现ReadBook那样的平滑滚动，听说现在一般的做法是把文字变成图片，然后输出到一个image上，再滚动，但是这样很浪费资源，而且改变窗口大小时，窗口闪的厉害。其实大家可以做一下这个实验 如果你的鼠标有滚轮的话，打开一个记事本，多输入些文字，让右边有滚动条，然后按下鼠标中键，怎样？效果很棒吧？而且滚动条还会自动下拉。 怎样模拟这个过程呢？请高手指教。 我查到了一个函数，应该有用：ScrollWindow，还有一个ScrollWindowEx;还请大家讨论一下； 哦，忘了说了，比如让一个RichEdit滚动，则用一个计时器，写上 ScrollWindow(RichEdit.handle，0，-1，。。。)就行了，不过会有一些问题。大家作做就知道了！

kouchun · 2004-04-06

用webbrower吧...做成html網頁型式...一定可以平滑滾動.

dropme · 2004-04-06

具体点可好？我菜菜！

tanapei · 2004-04-06

ontime事件 var doc:ihtmldocument2;    MaxScrollHeight:integer=0;    ScrollHeight:integer=0; begin if webbrowser1.Document <> nil then begin    doc:=webbrowser1.document as ihtmldocument2;    maxscrollheight:=doc.body.getAttribute('scrollheight',0);    if  scrollheight < maxscrollheight then    begin    scrollheight:=scrollheight+scrspeed;    if scrollheight<=maxscrollheight then    doc.Get_parentWindow.scrollBy (0,scrspeed); end else    scrollheight:=maxscrollheight; end;

dropme · 2004-04-06

还是曲线救国的方法，ScrollWindowEX不可以的吗？？

boldfake · 2004-04-06

SendMessage(Memo1.Handle, WM_VSCROLL, SB_LINEDOWN, 0); 用一个定时器触发时调用以上方法就可以了

wjh_wy · 2004-04-06

循环向下滚屏 procedure TForm1.Button1Click(Sender: TObject); var   VMsg: integer; begin   VMsg := SendMessage(RichEdit1.Handle, EM_SCROLL,SB_LINEDOWN,0);   if VMsg = 65536 then SendMessage(RichEdit1.Handle,EM_SCROLL, SB_top,0); end;

fu_qi_ming · 2004-04-06

我也想知道。

hardware007 · 2004-04-06

想知道

dropme · 2004-04-06

SendMessage(RichEdit1.Handle, EM_SCROLL,SB_LINEDOWN,0); 这种东西会一行一行的向下跳啊？这能叫平滑？？

andy263 · 2004-04-06

readbook用的是DirectDraw技术。

andy263 · 2004-04-06

你试试这段看看算不算平滑？   repeat     R := Memo1.Perform(EM_SCROLL, SB_LINEDOWN, 0);     Memo1.Update;     Sleep(100);   until LoWord(R) = 0;

app2001 · 2004-04-06

http://www.delphibbs.com/delphibbs/dispq.asp?lid=676892 如何实现象ReadBook一样实现文本的无级卷屏（200分大赠送） AAFont 平滑特效字体控件包 V2.59 http://www.yygw.net/download/AAFont2.59.zip

dropme · 2004-04-08

AAfont那个包我用了，挺好的，但是他也是转成图，然后滚动。你用下ReadBook,滚动时还可以选择文字呢！怎么说？

tangchaoyy · 2004-04-18

可以试试用把memo放到Panel里然后改变memo的TOP试试可以很平滑的呵呵,再放ScrollBar 到memo………… 呵呵我以前都是这么做的，很傻呵。

dropme · 2004-04-22

多谢这位老兄！ =============================== 不过哪个高手可以正面解决我的问题啊？？ 不然给我说下怎么用ScrollWindowEx来滚动RichEdit。

平滑滚动的奥妙！（高手请指点）(200分)

dropme

Unregistered / Unconfirmed

kouchun

Unregistered / Unconfirmed

dropme

Unregistered / Unconfirmed

tanapei

Unregistered / Unconfirmed

dropme

Unregistered / Unconfirmed

boldfake

Unregistered / Unconfirmed

wjh_wy

Unregistered / Unconfirmed

fu_qi_ming

Unregistered / Unconfirmed

hardware007

Unregistered / Unconfirmed

dropme

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

dropme

Unregistered / Unconfirmed

tangchaoyy

Unregistered / Unconfirmed

dropme

Unregistered / Unconfirmed

Similar threads