- UID
- 2261
注册时间2005-7-5
阅读权限20
最后登录1970-1-1
以武会友
 
TA的每日心情 | 开心 2019-9-19 16:05 |
---|
签到天数: 4 天 [LV.2]偶尔看看I
|
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; |
|