作为一个与VisualBasic相类似,但功能更强大的可
视化程序开发工具,Delphi同样提供了大量的简单便捷的
控制组件,通过这些组件,程序设计者可以设计出规范美
观的界面。并且规范化使用者的输入内容。其中,Delphi
提供的编辑组件中的Memo组件的功能是非常丰富的。它可
以完成对文字的编辑、修改、文件的调入和存储文件等功
能,但是与一般的字处理软件相比,它并未提供编辑时对
光标位置、所在行及所在列的信息,这不能说不是一个缺
憾。其实,通过很简单的几行程序就可以实现这一要求:
先在Form上放置三个Label组件,并在程序代码的前
面声明下面这三个变量为整型数,即:
VarLpos,Cpos,Linelength:integer;
其中Lpos是行的值(按照Memo的规定,第一行为0)
,Cpos是字符的位置,LineLength是当前行的字符总个数
。
然后,再将下面的七行程序代码分别加入Memo1的OnM
ouseDown和&#111nKeyDown的事件代码处即可。
Lops:ΚSendMessage(memol.Handle,EM—LINEFR
OMCHAR,Memol.SelStart,0);
Cpos:ΚSendMessage(meno1.Handle,EM—LINEIN
DEX,Lpos,0);
LineLength:ΚSendMessage(memol.handle,EM—
LINELENGTH,Cpos,0);
Cpos:ΚMemol.SelStart-CPos;
Labell.caption:Κinttostr(lpos);
Label2.caption:Κinttostr(cpos);
Label3.caption:Κinttostr(linelength);
这样,执行程序后,随着在Memo组件中的编辑操作,
Label1、Label2和Label3就将显示出相对应的当前行值、
字符位置与当前行的字符总个数了。
https://www.xin3721.com/

Delphi基础教程:Delphi中Memo组件的光标定位
作者:转载自:xin3721视频教程网更新时间:2010/10/17
- 视频教程在线观看
- Visual Basic从入门到精通视频教程
- 李天生SQL2008数据库视频教程
- 李天生二级VF考试视频教程
- 李天生Java软件开发高级视频教程
- 李天生Java软件开发高级教程
- C++从入门到精通视频教程
- 鹏哥C#语言从入门到高级视频教程
- 李天生JavaScript+JQuery视频教程
- VB教程:实例问题一则
- vb教程:实现多线程!
- vb教程:实现JPEG数据压缩
- VB教程:VB中调用VC++开发的DLL
- JAVA教程:UDP数据广播的局域网络会
- C语言教程:C 程序开发经典实例之6
- C语言教程:实现的闹钟程序
- 如何利用用C语言来解决鬼谷算题
- C语言教程:C 程序开发经典实例之一
- C语言教程:C 程序开发经典实例之2
- C语言教程:C 程序开发经典实例之3
- C语言教程:C 程序开发经典实例之5
- C语言教程:C语言程序设计技巧
- C语言教程:C 程序开发经典实例之7
- C语言教程:C 程序开发经典实例之8
- C语言教程:C 程序开发经典实例之9
- C语言教程:C 程序开发经典实例之1
- C语言教程:C 程序开发经典实例之4
- C语言教程:C语言入门
- 如何在VB.NET中取得计电脑的硬件信
- C语言教程:入门基础2
- C语言教程:入门基础
- C语言教程:写好C程序的10条秘籍
- 如何在VB.net中应用HOOK(二)
- VB.NET实例:删除文件时出错
- VB.NET实例:求一个因式分解的程序
- 关于MDI多文档编辑器的问题
- 如何产生不同的随机数?
- VB第三方控件实现XP资源管理器垂直
- VB第三方控件实现XP资源管理器垂直
- Delphi基础教程:开发分隔线组件
- Delphi基础教程:在程序中调用自己
- Delphi基础教程:面向组件的系统开
- Delphi基础教程:创建VCL 构件及开
- Delphi基础教程:编写ASP中的Activ
- Delphi基础教程:创建良好设计的代
- Delphi基础教程:从实作标题栏按钮
- Delphi基础教程:构件制作方法
- Delphi基础教程:开发自己的Delphi
- Delphi基础教程:改变VCL的行为--一
- Delphi基础教程:怎样获取未知DLL的
- Delphi基础教程:TQuery的结果到入
- Delphi基础教程:为什么要使用动态
- Delphi基础教程:在Delphi应用程序
- Delphi基础教程:Delphi中Memo组件
- Delphi基础教程:Delphi控制Excel2
- Delphi基础教程:Outlook的Automat
- Delphi基础教程:撰写及呼叫DLL程式
- Delphi基础教程:Delphi中实现OLE自
- Delphi基础教程:TQuery的结果到入
- Delphi基础教程:如何分析一个陌生
- Delphi基础教程:hook的dll源文件
- Delphi基础教程:DLL问题实例一则
- Delphi基础教程:利用Dll实现通用密
- Delphi基础教程:怎样在Delphi中调
- Delphi基础教程:修改Access数据库
- Delphi基础教程:用Delphi5编写调用
- Delphi基础教程:用Delphi编写DLL实
- Delphi基础教程:用Delphi制作DLL全
- Delphi基础教程:如何调试DLL型的向