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:=Se