CSDN博客

img GreatSuperYoyoNC

获得Memo、RichEdit的光标位置

发表于2003/9/10 11:24:00  2263人阅读

分类: 控件使用

获得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;


superyoyonc@sohu.com

0 0

相关博文

我的热门文章

img
取 消
img