消息关闭
    暂无新消息!

各位大神 帮助我下个表达式

问题作者 : 屁儿2017-07-02发布
俺才学delphi几天,有些地方 不是很明白,弄了个RichEdit板的写字板

其中用 
timer
和按钮实现了 【向下滚动文字】的功能


procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if RichEdit1.Perform(EM_SCROLL, SB_LINEDOWN, 0) = 0 then
    begin
    RichEdit1.Perform(WM_VSCROLL, SB_TOP, 0);
    end
  else
    begin
    SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
    end
end;


[code]
procedure TForm1.Button1Click(Sender: TObject);
begin
   Timer2.Interval := 998;          (默认timer2为0)
end;
[/code]


帮助我写个判断,【就是文字滚动到最下面了】
执行【Timer2.Interval := 0;】好让系统计时器归0,停止滚动,谢谢。

5个回答

︿ 2
http://bbs.crsky.com/1236983883/Mon_1608/161_215916_9e0534140f95d43.jpg
来看看我的作品吧。
︿ 1
自己写了一个Ebook,如下图,仅做了横向标尺,未做纵向标尺(比较难做)。
(因纵向标尺需要跟进)未做了。

︿ 0
这是十几年前,自己的作品。自己编制软件,自己使用,由于还有不尽人意的地方。不好共享下载了。
主要是收集网上的资料,和自己学习的心得。放在U盘上,随处可打开浏览。
最方便的地方,是能编辑Rich富文本,可以设置字体、字间路、行间距、段前、段后,右间距、Word通用格式,并打印出来。
网页文本复制后,点击右上角的图标,就能收录到EBook中了。
︿ 0
看过了,很好。
但我的Ebook,是我日常的笔记本。非常好用,分12个Book,第个Book由TreeView,设定章节,子目录是分章,Richedit是富文本。可以一次生成Word书。
︿ 0
另外 ,还有一个问题
就是能否生成个 屏幕的标尺,
位于 RichEdit 控件之上?
这样自动向下滚屏时 就有福了。