Delphi中Memo显示行号列号

最新推荐文章于 2023-12-03 12:44:25 发布
最新推荐文章于 2023-12-03 12:44:25 发布
阅读量1.9k 收藏 3
点赞数
分类专栏： Delphi 文章标签： Delphi Memo 行号 列号
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/iteye_4014/article/details/82338436
版权
本文介绍了在Delphi中如何获取Memo或RichEdit控件的当前行号，通过调用EM_LINEFROMCHAR消息实现。同时，文章探讨了Memo控件的内置撤销功能以及RichEdit控件如何自定义撤销操作，通过RichEdit的EM_UNDO消息进行撤消操作，并根据EM_CANUNDO消息判断是否允许撤消。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

实例说明

本例是个光标应用的简单技巧，希望通过这个例子的学习后能举一反三。Delphi中像这样简单而又实用的例子还有很多，只要平时多注意积累就能写出简洁、执行效率高的代码。
编程思路
直接向Memo组件发送消息EM_LineFromChar并检测返回值，即可获知此组件中光标所在的行号，向Memo组件发送消息EM_LineIndex并检测返回值即可获知此组件中光标所在的列号。
编程步骤
先在Form上放置三个Label组件，并在程序代码的前面声明下面这三个变量为整型数，即：
VarLpos,Cpos,Linelength:integer；
其中Lpos是行的值(按照Memo的规定，第一行为O)，Cpos是字符的位置，LineLength是当前行的字符总个数。然后，再将下面的七行程序代码分别加入Memo1的OnMouseDown和OnKeyDown的事件代码处即可。
Lops:=SendMessage(Memo1.Handle,
最低0.47元/天 解锁文章
tdbgrid_在Delphi的TDBGrid中显示和编辑MEMO字段
cumao2792的博客
09-12 1026
tdbgrid If you are developing database applications with tables containing MEMO fields, you'll notice that, by default, the TDBGrid component does not show the contents of a MEMO field inside a DBGri...
cxGrid显示行号
最新发布
LiuManchao的博客
03-20 499
第一种方法：直接双击events中的对应OnCustomDrawIndicatorCell事件代码参考第二种第二种方法：使用封装类，建立储存过程，事件中调用dsDataExport.DataSet:=CDS_DataExport3; CDS_DataExport3.Close; //添加字段前要关闭数据集 AddDummyField(CDS_DataExport3,TIntegerField,'Findrow',10); //动态添加字段 CDS_DataExport3.Open; CxGridCreate
delphi Memo 的当前行、当前列与当前字符
hyfcsdn的专栏
12-24 1318
procedureTForm1.Memo1Click(Sender:TObject); begin Text:=Format('当前列:%d,当前行:%d',[Memo1.CaretPos.X,Memo1.CaretPos.Y]); end; //用API实现 procedureTForm1.Memo1Click(Sender:TObject); var LineY,Line...
delphi中获取memo鼠标所在位置的行和列
fogbow622的博客
12-03 718
数字签名=733B67985DAFBC81508A8E5426294853。关键字=delphi中获取memo鼠标所在位置的行和列。//delphi中获取memo鼠标所在位置的行和列。采集日期=2023-11-23 17:31:01。{delphi中获取memo鼠标所在位置的行和列。采集软件=MKM - 我的知识管理。
Delphi 7.0 得到Memo中的可见行数.rar
07-10
Delphi 7.0 获取Memo控件中字符的可见行数，没讲 时在Memo控件中随便粘贴入一些字符，单击窗口中的“检测可见行数”按钮，即可得到该文本框控件中字符的行数，将这一系列执行命令集成在delphi的按钮监听事件中，编写如下代码即可： 　　function LinesVisible(Memo: TMemo): integer; 　　Var 　　 OldFont : HFont; 　　 Hand : THandle; 　　 TM : TTextMetric; 　　 Rect : TRect; 　　 tempint : integer; 　　begin 　　 Hand := GetDC(Memo.Handle); 　　 try 　　 GetTextMetrics(Hand, TM); 　　 Memo.Perform(EM_GETRECT, 0, longint(@Rect)); 　　 tempint := (Rect.Bottom - Rect.Top) div Memo.Font.Height div -1; 　　 finally 　　 ReleaseDC(Memo.Handle, Hand); 　　 end; 　　 Result := tempint; 　　end; 　　 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 bitbtn1.Caption:='可见[' IntToStr(LinesVisible(Memo1)) ']行'; 　　end; 　　程序运行效果请参见截图所示，完整源码请下载。
转Delphi中Memo显示行号列号
weixin_30892037的博客
11-24 659
http://www.alonely.com.cn/Delphi/20160814/8912.html 实例说明本例是个光标应用的简单技巧，希望通过这个例子的学习后能举一反三。Delphi中像这样简单而又实用的例子还有很多，只要平时多注意积累就能写出简洁、执行效率高的代码。编程思路直接向Memo组件发送消息EM_LineFromChar并检测返回值，即可获知此组件中光标所在的行号，向Memo组件...
DELPHI的MEMO组件
wozengcong的专栏
09-14 8348
位于Standard选项卡上，它是对EDIT控件的扩展，可以对多行文本进行显示、输入 和编辑.   Lines属性：  该属性实际上为TStrings类型的对象，用来存放Memo对象的文本 TStrings有一个缺省的属性Strings， 它的定义为： property strings[index:integer]:string;  其中，Index表示字符串的索引值，
Delphi中RichEdit获得得知当前行号
s13596191285的博客
03-10 479
ApplicationMessageBox(PChar(′当前行号是′＋IntToStr(CurrentLine)),′消息′,mb_iconinformation);先在窗口中布置一个RichEdit或者memo（命名为editor），以及一个button。用RichEdit（或者memo）控件制作文本编辑器时，通过访问lines count属性可以得到总行。数，但是若想知道光标当前所在行的行号就麻烦了，因为delphi没有提供这个属性。需要注意的是，第一行的行号为零。事件中写入下列代码。
delphi7 显示行号
iteye_12887的博客
12-08 889
delphi7 显示行号       CnWizards 是 CnPack 项目组的主力产品之一，中文全称是 CnPack IDE 专家包，英文全称是 CnPack IDE Wizards，简称 CnWizards。CnWizards 是一组集成在 Delphi/C++Builder/BDS 的 IDE 中，用于增强 IDE 功能、提高 IDE 的可用性及开发效率的免费、开放源码工具  ...
利用Windows消息获取Memo的行和列.rar_DELPHI 消息_delphi memo_memo
09-23
在Delphi中，我们可以使用`WM_GETTEXT`，`WM_GETTEXTLENGTH`等消息来获取Memo中的文本信息，但要获取行和列，我们需要处理`WM_CHAR`或`WM_KEYDOWN`消息。 Delphi中的Memo组件实际上是基于Windows API中的`RichEdit`...
vsflexgrid单元格换行后自动使用行高_大咖分享办公秘籍:Word和Excel换行
weixin_39679370的博客
12-09 467
我们在日常办公和学习中，对文档进行整理和粘贴数据的过程中，经常会用到的就是换行功能了。那么怎么实现自动换行呢？下面，就由非凡学院商务办公培训专业的付老师，和大家分享一下在Word和Excel中简单的实现过程，赶紧来看看和学习一下吧。 1、硬回车：硬回车就是我们写文章时需要另提一行(另起一段)时， 通常我们直接按回车键(Enter)，就是硬回车。在两个硬回车之间的段落可以各自设置格式而不相互影响。如...
TMemo中获取光标所在行号的方法
luxuewei5214的专栏
03-02 1092
mmo1.Perform(EM_LINEFROMCHAR, mmo1.SelStart, 0)；//第一行返回0
delphi 获得memo，Richedit焦点所在行
weixin_34220963的博客
01-13 543
procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin i:=SendMessage(Richedit1.handle,EM_LINEFROMCHAR,Richedit1.selstart,0)+1; ShowMessage(IntToStr(i)); end; 转载于:http...
delphi代码编辑器行号显示方法
weixin_30455661的博客
02-08 816
菜单栏 -> CnPack -> IDE扩展设置 -> 代码编辑器扩展专家设置 ->行号及工具栏 转载于:https://www.cnblogs.com/y232995558/archive/2009/02/08/1386506.html
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值