Delphi中如何使右侧的滚动条自动拖到底端以显示 RichEdit 最新添加的文本

最新推荐文章于 2023-04-27 10:40:16 发布
最新推荐文章于 2023-04-27 10:40:16 发布
阅读量2.2k 收藏 1
点赞数
分类专栏： Delphi相关 文章标签： delphi scroll
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Roube/article/details/7388502
版权

加在OnChange事件中：

卷屏到光标处

 SendMessage(RichEdit1.Handle, EM_SCROLLCARET, 0, 0); 
向下卷屏一行
 SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0) 
向下卷屏到底
 SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_BOTTOM, 0) 
参见 MSDN 的 WM_VSCROLL
Roube
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
抓取RICHEDIT指定文本并滚动到对应位置
08-07
本来自己做小程序，里面一部分功能是对于RICHEDIT内容的查找。研究了半天，发现网上的说法或者过程都没有能够满足我的要求的。还有就是实现起来比较繁琐。 结果还是得自己干。文本查找网上有很多代码使用FINDTEXT很简单就能实现。但是文档的定位，如果文档很长那么搜索完成后不会显示到对应的搜索地点，网上很多种方法又是设定光标位置，又是确定文档坐标什么的。太麻烦，我就想有没有简单点的办法，结果还真整出来了，2条语句搞定，比起网上看到的大段代码要简洁了很多，并且速度快。
RichEdit 的ScrollBar自动向下滚动
easyboot的专栏
07-05 3318
RichEdit.SelAttributes.Color := TypeAndColor.Color; RichEdit.Lines.Add(TypeAndColor.StrData + str); PostMessage(RichEdit.Handle, WM_VSCROLL, SB_BOTTOM, 0);
Delphi-Scrollbar控件的使用方法和详解
wei_wu49036233的专栏
03-13 1万+
滚动条控件，用于增加窗体或容器的可视区域。可通过编程为不具备滚动能力的控 件提供滚动功能，在实际应用中，也常用作数量，速度指示器。 主要属性： Align属性：用于设置滚动条的对齐方式。 Enabled属性：用于设置滚动条是否有效。 Kind属性：用于设置滚动条是以垂直方式显示还是以水平方式显示。 MAX属性：用于设置滚动条所能代表最大值。 MIN属性：用于设置滚动条所能代表最小
【3.Delphi常用组件】6.滚动条
chenhaiy的博客
03-01 1483
6.滚动条 一般情况下，滚动条是自动加入的。如果计划自己控制窗口的滚动，就可以使用滚动条（TScrollBar）组件。其主要属性如下： 属性 说明 LargeChange 设置当用户单击滚动条时（非箭头部分）滚动的距离 Max 可滚动的最大值 Min 可滚动的最小值 PageSize 按下PgUp、PgDn键时滚动条的滚动距离 Position 设置或返回滚动条中方块的位置 SmallChange 单击滚动条两端的箭头滚动的距离 主要
delphi TRichView滚动条滚动到底部
XinShun的博客
12-17 242
1、参考：https://stackoverflow.com/questions/6372193/how-to-autoscroll-to-the-end-of-richedit 2、代码 SendMessage(RichView1.handle, WM_VSCROLL, SB_BOTTOM, 0);
在RichEdit中添加文本框控件，用滚动条控制上下翻阅
06-01
在RichEdit中添加文本框控件，用滚动条控制上下翻阅
Delphi-滚动条控件
aishizhuang1602的博客
09-28 663
Align　 控件显示的位置 Alignment　 文本对齐方式 AlignWithMargins 允许调整控件边距 Anchors 当对象的容器的尺寸改变时，该对象的的位置怎么定位，如akLeft为true,则到容器左边的距离保持不变。具体如下： akLeft为True是控件与它的父控件的左边缘的距离不变 ...
自绘LISTVIEW的滚动条(Delphi实现)
dinaoza6674的博客
04-01 230
因项目需要准备对LISTVIEW的滚动条进行自绘。于是在网上搜了一下，问题没解决，却搜出一篇令人不愉快的帖子。确实，那时候实力是不够的，但现在应该是没问题了，为这个目的才不断磨练自己的。 LISTVIEW控件的滚动条是系统自带的，它不创建窗口。对LISTVIEW窗口本身进行子类化后，要处理一些跟滚动条有关的消息。 首先是要骗过WM_NCPAINT消息。这个十分容易。WM_NCPAI...
delphi 自动滚动到最底端scroll
weixin_30660027的博客
07-29 471
自动滚动到最底端scrollUses MSHTML;{$R *.dfm}varScrollPos: integer=0;procedure TForm1.Button1Click(Sender: TObject);begininc(ScrollPos, 10);if WebBrowser1.Document <> nil then(WebBrowser1...
Delphi界面添加滚动条
最新发布
旭旭的博客
04-27 642
Delphi界面添加滚动条
Delphi 打印RichEdit组件中被选中的文本.rar
07-10
Delphi 打印RichEdit组件中被选中的文本，报表技术是程序设计必不可少的，不论是大，型企事业还是小规模的公司，在使用软件，行各项管理时都会涉及到相关的报表。Delphi提供了强大的报表设置与打印功能，可以实现...
Delphi为ListBox组件添加水平滚动条
05-11
一般情况下，ListBox的滚动条是默认不显示的，有些是根据内容自动显示的，本例将为TListBox组件强制添加一个水平方向的滚动条。为了更好的演示，窗体上有一个按钮可以控制滚动条的添加，你只需点击一下按钮，即可...
RichEdit选中行高亮显示及加入超链接-代码
11-26
RichEdit选中行高亮显示及加入链接-代码-选中当前行变成红色，超链接显示。
delphi发送消息控制滚动条使用示例
09-05
本文为大家详细介绍下delphi实现发送消息控制滚动条，主要函数及用法如下，感兴趣的朋友可以参考下哈
SendMessage 详解
热门推荐
sunxinyu的专栏
12-06 2万+
http://www.cnblogs.com/rosesmall/p/3248244.html 窗体操作；控件；文本；系统操作等等。 笑笑小白 归类自己需要的资料，慢慢爬行 vb sendmessage 详解1 SendMessage函数的常用消息及其应用(有点长，希望能对大家有所帮助) 函数原型： Declare Function S
【Delphi】FMX 如何设置 TVertScrollBox的滚动位置，使其回到顶部原点
weixin_30540691的博客
10-21 666
在手机APP开发中， 纵向的滚动框非常实用，可以说是必不可少的控件，甚至为了自适应不同手机屏幕大小，使用滚动框是非常方便的懒人方法。 当我们使用TVertScrollBox控件时，发现除了控件内部封装好的自动化的触控滚动，还有一个方法ScrollBy可以调整滚动条位置，但实际中我们发现，ScrollBy是一个增量滚动的方法，即ScrollBy(0,10)代表向上滚动1...
delphi 用鼠标滚轮控制Form的垂直滚动条
hansoy的专栏
04-08 3181
Form的OnMouseWheel事件 procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin
delphi dbgrideh滚动条问题
zwj1537的博客
12-10 1719
想要实现的效果： 在DBgrideh做了勾选框，在指定行勾选后，在原地位置刷新数据，光标以及滚动条都不变； 在原地刷新数据后，用DBGRID的DataSource.DataSet.Locate自带定位功能，将光标指向原选中行，但是，原选中行的物理顺序的位置变了，.Locat定位后，总是在DBGRIDEH倒数第二行， 本人比较菜，经过一天的折腾，终于找到一种方法，可以实现，虽然用起来效果不怎么好...
两个ScrollBox同步滚动
harvardfeng的专栏
10-08 2207
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls; type TScrollBox=C

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值