获得Memo、RichEdit的光标位置 (转)[@more@]获得Memo、RichEdit的光标位置：
procedure TForm1.Button1Click(Sender: Tobject);
获得Memo、RichEdit的光标位置：
procedure TForm1.Button1Click(Sender: Tobject);
var Row, Col : integer;
begin
Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
Col := CustEdit.SelStart - SendMessage(Memo1.Handle, EM_LINEINDEX, -1, 0);
Edit1.Text:='行,列:'+IntToStr(Row)+','+IntToStr(Col);
end;
to:superyoyonc@sohu.com">superyoyonc@sohu.com
to:superyoyonc@sohu.com">superyoyonc@sohu.com来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10748419/viewspace-959488/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
