高手们救命呀！！TRichEdit每添加一行(lines.add())，怎样显示最后一行，即会自动滚动，前提是不用鼠标点击。此问题搞得我头晕都没办法。

bphantom 2003-09-08 07:18:35

由于我做的收费软件是专用键盘，不能用鼠标，我用TRichEdit控件用于显示操作信息，但记录滚动时，当行数超出RichEdit的显示范围之后，不会滚动到当前添加的那行。郁闷。此时如果用鼠标将光标移到最后一行，或是拉滚动条到最下，则就会自动滚动了。郁闷。
如果改用Tmemo控件，则每次添加就会自动滚动了。但此控件不能改变没行颜色。也不能满足我的要求。
我的测试按钮中的代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
Y := Form1.RichEdit1.Lines.Count;
//X := 4;//Length(RichEdit1.Lines[Y]);
Form1.RichEdit1.CaretPos := Point(0, Y);
Form1.RichEdit1.SelLength := Length(Edit1.Text);
Form1.RichEdit1.SelAttributes.Color := clRed;
Form1.RichEdit1.Lines.Add(Edit1.Text);
//Form1.RichEdit1.SetFocus;
end;
救命呀！！！！！！！！！！！！！！！！！！！

...全文

149 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

huojiehai 2003-09-08

打赏
举报

回复

没你说的利害，以后有问题到我主页留言板留言。
http://haitian.myrice.com/

bphantom 2003-09-08

打赏
举报

回复

to: huojiehai(海天子) 高手就是高手，果然厉害。

hiflower 2003-09-08

打赏
举报

回复

Richedit1.ScollBy(0,-N)

merkey2002 2003-09-08

打赏
举报

回复

哈哈哈！！！！
分我点吧：）

huojiehai 2003-09-08

打赏
举报

回复

给我分吧！：）

huojiehai 2003-09-08

打赏
举报

回复

我刚写了一个，可以

procedure TForm1.Button1Click(Sender: TObject);
var
Y,aa: integer;
tagS: tagScrollInfo;
begin
Y := Form1.RichEdit1.Lines.Count;
Form1.RichEdit1.SelLength := Length(Edit1.Text);
Form1.RichEdit1.SelAttributes.Color := clRed;
Form1.RichEdit1.Lines.Add(Edit1.Text);
GetScrollInfo(Form1.RichEdit1.Handle,SB_VERT,tagS);
aa := MakeLong(SB_BOTTOM,0);
SendMessage(Form1.RichEdit1.Handle, WM_VSCROLL, aa,tagS.fMask)
end;

Delphi控制TRichEdit组件文字内容滚动..rar

Delphi获取TRichEdit控件光标所在的行号..rar`

摘要:Delphi源码,控件组件,TRichEdit　　这几天做一个Delphi项目，要用到TRichEdit组件内的文字滚动，索性研究了一下，编写了这么一个实例，点击按钮可控制TRichEdit组件显示区的文字滚动。关于TRichEdit组件：它是一个高级文本编辑组件，可以编辑多行文本，并且支持RTF格式的文件。在TRichEdit中可以改变部分文本的字体和颜色，实现了简单的文字处理功能，当文字非常多时，会自动显示一个滚动条，拖动滚动条就会看到其他文字。

RichEdit控件删除行操作自动滚屏到最后的应用示例

目录第1 章 Delphi 集成开发环境..........1 1.1 Delphi 6.0 简介............................................ 1 1.2 Delphi 可视化开发环境简介...................... 2 1.2.1 对象编辑器（Object Inspector）....3 1.2.2 工程管理器（Project Manager）....5 1.2.3 代码编辑器......................................5 1.2.4 CPU 观察窗口.................................6 1.2.5 对象浏览器......................................7 1.3 开发环境的优化.......................................... 7 1.3.1 编程环境设置..................................7 1.3.2 自定义工具栏..................................9 1.3.3 编辑环境设置................................10 1.3.4 工程设置........................................11 1.4 一个简单的Delphi 程序........................... 12 1.5 本章小结.................................................... 13 第2 章 Object Pascal 语言..........14 2.1 Object Pascal 语言基础............................. 14 2.1.1 Object Pascal 入门.........................14 2.1.2 注释语句........................................15 2.1.3 标识符（Identifier） .....................16 2.1.4 保留字（Reserved Word）和指令字（Directive） ..........................................16 2.1.5 数据类型........................................17 2.1.6 运算符(Operators)..........................27 2.1.7 语句................................................31 2.1.8 过程与函数....................................35 2.1.9 作用范围........................................42 2.1.10 规范化命名..................................43 2.2 Object Pascal 语言的面向对象技术......... 43 2.2.1 对象和类的概念............................44 2.2.2 Object Pascal 中类的定义.............46 2.2.3 方法...............................................51 2.2.4 多态性...........................................54 2.2.5 类运算符.......................................57 2.2.6 类方法和类引用............................58 2.2.7 单元文件.......................................61 2.2.8 TObject：所有对象的祖先...........63 2.3 结构化异常处理........................................64 2.3.1 try...except 语句和try...finally 语句 ................................................................65 2.3.2 raise 语句.......................................67 2.3.3 异常类...........................................67 2.4 方法与技巧................................................67 2.4.1 设置代码模板................................67 2.4.2 设置提示信息................................68 2.5 本章小结....................................................69 第3 章常见组件编程............... 70 3.1 窗体和组件................................................70 3.1.1 概述...............................................70 3.1.2 窗体（Form）...............................71 3.1.3 组件（Component） .....................74 3.1.4 组件的使用....................................75 3.2 文本输入类组件........................................78 3.2.1 TEdit 组件.....................................78 3.2.2 TMemo 组件..................................78 3.2.3 TMaskEdit 组件.............................78 3.2.4 TRichEdit.......................................79 3.2.5 TLabel 组件...................................79

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章