你可以调用WINDOWSAPI中的EM—LINEFROMCHAR和EM—LINEINDEX函数来确定MEM O控件中的当前行和列,具体调用的过程见下面的过程。 var LineNum:longint; CharsBeforeLine:longint; begin LineNumΚSendMessage(Memo1.Handle,EM—LINEFROMCHAR,Memo1.SelSta rt,0); CharsBeforeLine:=SendMessage(Memo1.Handle,EM—LINEINDEX,LineNum ,0); Label1.Caption:=′Line′+IntToStr(LineNum+1) Label2.Caption:=′Position′+IntToStr((Memo1.SelStart-CharsBe foreLine)+1); end;
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18