获得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;
Mailto:superyoyonc@sohu.com" rel="nofollow">superyoyonc@sohu.com
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10748419/viewspace-959488/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10748419/viewspace-959488/