查看: 2911|回复: 0

获得Memo、RichEdit的光标位置

TA的每日心情

	开心 2019-9-19 16:05

签到天数: 4 天

[LV.2]偶尔看看I

发表于 2007-2-12 10:04:39 | 显示全部楼层 |阅读模式

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, 光标, 位置

		自动登录	找回密码
密码			加入我们

获得Memo、RichEdit的光标位置

相关帖子