TRichEdit 的滚动条问题！！

lostangels 2003-08-22 04:23:49

想要实现每次在TRichEdit中加入一行之后，行数多到需要竖直滚动条的时候，就滚动竖直滚动条，并使最后一行的内容显示在可见范围之内。

...全文

45 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

lostangels 2004-03-24

打赏
举报

回复

我的问题已经解决。只要刷新即可。：）

wuxq7311 2003-08-22

打赏
举报

回复

把ScrollBars的属性改为ssVertical

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

本来自己做小程序，里面一部分功能是对于RICHEDIT内容的查找。研究了半天，发现网上的说法或者过程都没有能够满足我的要求的。还有就是实现起来比较繁琐。结果还是得自己干。文本查找网上有很多代码使用FINDTEXT很简单就能实现。但是文档的定位，如果文档很长那么搜索完成后不会显示到对应的搜索地点，网上很多种方法又是设定光标位置，又是确定文档坐标什么的。太麻烦，我就想有没有简单点的办法，结果还真整出来了，2条语句搞定，比起网上看到的大段代码要简洁了很多，并且速度快。

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

ListView 排序 Stringgrid内使用回车键代替Tab键 TListBox内显示分栏 TListBox每一行显示交互的颜色 TMemo内光标位置根据鼠标移动 TMemo自动卷动 TRichEdit卷到特定位置 TRxRichEdit内插入图像 TStringGrid中插入、删除一行 TStringGrid保存和装载 TTreeview控件显示粗体节点 TWebBrowser中调用“查找”对话框为Listview栏添加双击事件为工具栏的TToolButton设置新的索引仅通过Classname创建和管理任意窗体从RichEdit取Rtf格式从TListBox中拖放项目到TRichEdit 从一个TRichedit复制格式Rtf文本到其它使用CustomSort方法排序TListView 使用DBGrid字段队列同步列标题队列使用Interfaces和TInterfaceList 使用TRichEdit存储大于64K数据使用代码移动StringGrid的行和列使用圆形角显示控件使用类名显示窗体保存装载TCheckListbox值保存和装载TListView 保存和装载TTreeView 允许TDBGrid栏调整大小但防止移动克隆控件克隆窗体列出控件的所有属性和事件创建可编辑ListBox 删除Listbox的所有选定项目删除stringlist中重复项目删除TStringGrid中的列动画窗体取ComboBox List句柄取TListview内所有选定项目取TShellListView中选定文件的路径取列举值的名称在combobox中实现autocomplete 在DBGrid中使用回车键改变到下一个段在listbox内列出所有目录、文件和驱动器在Listbox内显示水平滚动条 在memo中实现UNDO 在RichEdit内搜索文本并选择它在StringGrid内使用Combobox作为编辑器在StringGrid单元中画不同颜色在TComboBox中显示栏在TComboBox内绘制位图在TDateTimePicker内显示星期几在TFileListBox内显示多列在TListBox中创建彩色项目在TListBox内拖拽在TListbox内绘制位图在TListview内执行二进制搜索在TListView内拖拽多个项目在TListView列中创建进度条在TMemo内查看和编辑MS-DOS文本在TPageControl拖拽Tabs 在TPrintDialog上放置定制控件在TRichEdit内使用上标和下标在TRichEdit内使用超链接在TRichEdit内文本使用不同的下划线样式在TRichedit内设置段落行距在TStringGrid内删除一行在TStringGrid实现OnColumnClick事件在自己的控件显示信息复制Listbox项目到剪贴板失效TTreeview的tooltips 定制TDateTimePicker的格式居中控件屏蔽在EditBox内按回车键的都都声强制在TEdit内输入排序StringGrid 搜索和替换RichEdit中文本搜索和选定TListBox的项目改变TDBGrid的DefaultRowHeight 改变TRichEdit内选定文本的背景颜色改变TStringGrid内选定单元的颜色改变标准对话框改变状态栏字体样式改变窗体上所有控件的属性改变进度条颜色根据StringGrid列内容自动调整大小根据列排序TStringGrid 检查Stringgrid中指定单元示范选定检查TMemo能否取消操作检查TreeView是否完全展开或折叠检查TStringGrid是否有滚动条 添加接口对象到list 清空StringGrid的所有单元移动listbox项目移动TListView项目移动TRichEdit内光标到指定位置聚焦TDBGrid某些单元自动打开TDateTimePicker 自定义Memo边界获取TRichEdit中鼠标指针下面的字访问TRadioGroup的控件调整TComboBox下拉列表的宽度转换Editbox的首字符为大写转换TEdit中每个词的首字母为大写输出TStringGrid到TListView 运行时创建TButtons队列运行时创建控件运行时创建菜单项运行时替换控件返回TTreeView内字符串路径防止在TEdit内剪贴、复制、粘贴防止用户调整TListView栏大小限制TEdit的输入隐藏TListView滚动条隐藏最小化MDI子窗口颜色Combo Box 验证TEdit中输入的是数字

《Delphi 7 新概念百例》是一本通过讲解Delphi实例，来说明使用Delphi编程时通常采用的编程思路以及具体方法的计算机书籍。通过对每个实例从编程思路和代码实现的详细分析和讲解，力求带领读者快速地提高自己的程序设计水平，并达到举一反三的目的。很多实例的重要部分都做了特别注意和技巧等提示，目的是强调一些技巧的使用或使读者尽量避免一些常见的错误，以使更高效地利用Delphi这个强大的程序开发工具。　　该书精选了100多个经典的实例从易到难、由浅入深、由简单到综合地进行讲解，内容涉及面也很广泛，基本上涵盖了用Delphi进行应用程序设计的方方面面，凝聚了作者多年的Delphi编程经验，相信对启发读者的思想并提高读者的编程水平台有很大帮助。　　该书主要面向中高级读者，但对那些熟悉Object Pascal语法并有一定编程经验的初级读者也很有帮助。本书也可以作为初涉Delphi的实例教材使用。　　本文件是《Delphi 7 新概念百例》的配书源代码，包含编译好的可执行文件。内容如下：├─综合应用篇│ ├─87 用TreeView来显示数据库信息│ ├─86 显示彩色数据表格│ ├─85 文件切割器│ ├─84 加密解密器│ ├─83 TButton增加OnMouseLeave事件│ ├─82 将IE收藏夹导出为HTML文件│ ├─81 NT Win2000中发送Winpop消息│ ├─80 制作无闪烁的动画│ ├─79 定制自己的幽灵程序│ ├─78 简单的文件查看器│ ├─77 简单的文件夹浏览器│ └─76 实现自己的控制面板├─练习提高篇│ ├─99 获取TRichEdit控件中光标所在行号│ ├─98 获取内存信息│ ├─97 获取CPU 信息│ ├─96 获取Windows的版本│ ├─95 临时文件的操作│ ├─94 获取Windows和System目录│ ├─93 将窗体大小限定在一定范围内│ ├─92 闪烁窗口│ ├─91 在窗体客户区用鼠标拖曳窗体│ ├─90 使TMemo组件带边界│ ├─89 给ListBox控件增加水平滚动条│ ├─88 运行时拖动控件│ ├─104 防止程序或系统关闭│ ├─103 设置屏幕分辨率│ ├─102 获取系统和显卡的BIOS信息│ ├─101 使应用程序不出现在任务栏上│ └─100 隐藏或显示桌面上的图标└─基础实例篇 ├─8第八节数据库技术 │ ├─75 通过注册表在程序中增减和修改数据源 │ ├─74 获取BDE的配置信息 │ ├─73 动态建立和使用别名 │ │ ├─在程序中动态地建立和使用别名(四) │ │ ├─在程序中动态地建立和使用别名(二) │ │ ├─在程序中动态地建立和使用别名(三) │ │ └─在程序中动态地建立和使用别名(一) │ ├─72 自动检测、建立数据库别名和数据表 │ ├─71 用Delphi进行数据库之间转换 │ ├─70 图像数据的存取 │ ├─69 压缩、反删除dBase或FoxPro数据表 │ ├─68 处理数据库日期型字段的显示与输入 │ │ └─数据库 │ └─67 在数据库中存取Word文档 ├─7第七节网络编程 │ ├─66 动态更改DNS │ ├─65 网络资源树形浏览 │ ├─64 实现网络驱动器的映射和断开 │ ├─63 在网络邻居上得到某台机器的磁盘空间 │ ├─62 在网络邻居中获取指定工作组内的所有计算机及其共享资源信息 │ ├─61 在WinNT-2000网络邻居中获取所有的工作组 │ ├─60 计算机名与IP地址的互相获取 │ ├─59 实现Ping操作 │ ├─58 网页浏览器 │ └─57 获取本机机器名、IP信息以及网卡的MAC地址 ├─6第六节多媒体技术 │ ├─56 实现图像之间的平滑过渡 │ ├─55 制作能播放Midi、Wav和Avi文件的播放器 │ ├─54 检测声卡是否安装 │ ├─53 获取Audio-CD的序列号 │ ├─52_关闭CD-ROM │ └─51 检测_设置CD-ROM是否自动运行 ├─5第五节图像技术 │ ├─50 创建Jpeg图像的缩略图 │ ├─49 实现图像的翻转 │ ├─48 多种渐变色的实现 │ ├─47 TColor与RGB值的互相转换 │ ├─46 将文本转换成图像 │ ├─45 提高对位图象素的访问速度 │ ├─44 将彩色位图转换为灰度图 │ ├─43 将图像从jpg,ico,bmp,wmf格式转换为emf格式 │ ├─42 将图像从jpg,ico,emf,wmf格式转换为bmp格式 │ └─41 将图像从bmp格式转换为Jpg格式 ├─4第四节 VCL分析 │ ├─40 消除在TEdit控件中按下回车键时的声音 │ ├─39 在StringGrid中设置只读栏 │ ├─38 加速TTreeView控件的填充和清空 │ ├─37 加速TListBox控件的填充和清空 │ ├─36 在TStringGrid控件中删除整行 │ ├─35 动态创建主菜单和菜单项 │ ├─34 使程序能在循环中响应界面操作 │ ├─33 在TListbox、TCombobox中实现自动搜索 │ ├─32 用剪贴板复制和粘贴图像 │ └─31 实现.dfm文件和.txt文件的互相转换 ├─3第三节 Shell研究 │ ├─30 为程序创建快捷方式 │ ├─29 获取Windows的若干特殊文件夹路径（二） │ ├─28 获取Windows的若干特殊文件夹路径（一） │ ├─27 抽取程序关联图标 │ ├─26 磁盘格式化的实现 │ ├─25 将文件加入“开始”菜单的“文档”中 │ ├─24 文件的拖放 │ ├─23 整个目录的复制、移动、删除 │ ├─22 将指定文件类型设置为与自己的应用程序相关联 │ └─21 文件的自动打开和超链接的实现 ├─2第二节系统探秘 │ ├─20 操作INI文件 │ ├─19 获取驱动器类型信息 │ ├─18 在自己的程序中关闭其它的程序 │ ├─17 使程序开机自动运行 │ ├─16 在自己的程序中打开或关闭IE窗口 │ ├─15 模拟鼠标的行为 │ ├─14 限制光标的移动区域 │ ├─13 获取或更改计算机名 │ ├─12 运行程序的单实例 │ └─11 隐藏任务栏 └─1第一节界面设计 ├─09 在系统菜单上添加自定义菜单项 ├─08 使窗体始终最大化 ├─07 使窗体始终最小化 ├─06 为窗体创建动画光标 ├─05 制作始终位于最上层的窗体 ├─04 制作带背景窗体 ├─03 制作圆形窗体 ├─02 制作无标题栏窗体 ├─10 给窗体边框“镶边” └─01 制作不可移动的窗体

VCL组件使用和开发

604

社区成员

13,460

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章