Memo光标定位

实例说明本例是个光标应用的简单技巧，希望通过这个例子的学习后能举一反三。Delphi中像这样简单而又实用的例子还有很多，只要平时多注意积累就能写出简洁、执行效率高的代码。

编程思路直接向Memo组件发送消息EM_LineFromChar并检测返回值，即可获知此组件中光标所在的行号，向Memo组件发送消息EM_LineIndex并检测返回值即可获知此组件中光标所在的列号。

编程步骤先在Form上放置三个Label组件，并在程序代码的前面声明下面这三个变量为整型数，即：Var
Lpos,Cpos,Linelength:integer;其中Lpos是行的值(按照Memo的规定，第一行为O)，Cpos是字符的位置，LineLength是当前行的字符总个数。然后，再将下面的七行程序代码分别加入Memo1的OnMouseDown和OnKeyDown的事件代码处即可。Lpos:=SendMessage(Memo1.Handle,EM_LineFromChar,memo1.SelStart,0);
Cpos:=SendMessage(memo1.Handle,EM_LINEINDEX,Lpos,0);
LineLength:=SendMessage(memo1.handle,EM_LINELENGTH,Cpos,0);
Cpos:=memo1.SelStart-CPos;
Label1.caption:=inttostr(Lpos);
Label2.caption:=inttostr(Cpos);
Label3.caption:=inttostr(Linelength); 完成后，在执行程序时，随着在Memo组件中的编辑操作，Labell、Label2和Label3就将显示出相对应的当前行值、字符位置与当前行的字符总个数了。

#好眼睛