网站 › 『 编程之美 』 › 获得Memo、RichEdit的光标位置

Moodsky 发表于 2007-2-12 10:04:39

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

查看完整版本: 获得Memo、RichEdit的光标位置