Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:组件使用    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  Delphi Memo组件的光标定位  
 
Delphi Memo组件的光标定位

实例说明
本例是个光标应用的简单技巧,希望通过这个例子的学习后能举一反三。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,EM_LineFromChar,Memol.SelStart,0);
Cpos:=SendMessage(Menol.Handle,EM_LineIndex,Lpos,0);
LineLength:=SendMessage(Memol.Handle,EM_LineLength,Cpos,0);
Cpos:=Memol.SelStart-CPos;
Label1.Caption:=IntToStr(ipos);
Label2.Caption:=IntToStr(cpos);
Label3.Caption:=IntToStr(linelength);
完成后,在执行程序时,随着在Memo组件中的编辑操作,Labell、Label2和Label3就将显示出相对应的当前行值、字符位置与当前行的字符总个数了。

编程总结
请大家结合“获取RichEdit组件中光标所在的行号”一起学习,实际上两者极为相似。
附另一篇:

一、如何得知当前行号
  用RichEdit(或者memo)控件制作文本编辑器时,通过访问lines count属性可以得到总行数,但是若想知道光标当前所在行的行号就麻烦了,因为delphi没有提供这个属性。要实现这个编辑器必备功能,就须调用 em_ LineFromChar。请试试下面的程序。
  先在窗口中布置一个RichEdit或者memo(命名为editor),以及一个button。在button的onclick事件中写入下列代码。
  var
  CurrentLine:Integer;
  begin
  CurrentLine:=Editor Perform(em_ LineFromChar,SFFFF,0);
  Application MessageBox(PChar(′当前行号是′+IntToStr(CurrentLine)),′消息′,mb_ iconinformation);
  end;
  需要注意的是,第一行的行号为零。
  二、如何撤消操作(undo)
  对于memo来说,实现undo是不需编程的,只要让popupmenu属性为空,运行时就能用鼠标右键激活一个常用操作菜单,其中包括撤消、剪切、复制、粘贴、删除和全选六项。
  但可惜的是,这一招对于功能强大的RichEdit控件居然行不通,害得我们还要自己设计一个popupmemu。当你用 CutToClipBoard等语句轻松而顺利地完成了“剪切”等功能,接着便会无奈地发现,竟找不到undo或cancel之类的语句来执行“撤消”。
  这时你需要这样处理:
  RichEdit1 Perform(EM_UNDO,0,0);
  另外还应检查是否允许撤消,从而开启或关闭弹出菜单中的“撤消”项:
  Undo1 Enabled:=RichEdit Perform(EM_CANUNDO,0,0)<>0;
  以上程序在Delphi3中调试通过。

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站