如何在Memo控件中得到鼠标点击位置的行号(50分)

  • 主题发起人 主题发起人 jinheking
  • 开始时间 开始时间
J

jinheking

Unregistered / Unconfirmed
GUEST, unregistred user!
我想用delphi做一个手写板,但是我得不到行号,因为我是初学乍练,希望回答者回答的
尽可能详细一些。谢谢! ^&^
 
行号 memo1.CaretPos.x,
列号 memo1.CaretPos.y,

procedure TForm1.Memo1Click(Sender: TObject);
begin
showmessage('行号:'+inttostr(memo1.CaretPos.x);
showmessage('列号:'+inttostr(memo1.CaretPos.y);
end;
 
//agree www
 
用法是对的,但 www 的行、列号搞反了
 
呵呵,x是列,y是行 :-)
 
可以手工编写。
例如:设两个全局变量 col,row。
col,row随光标移动键(包括箭头,pageup,pagedown,home,end,home,end)而变化.
以上按键请在onkeypress event中捕获。
捕获鼠标的mousedown event中的X,Y值,与memo1.left,memo1.top,
memo1.width,memo1.height计算出col and row.

因为我的Tmemo不知为何没有CaretPos属性,我的是3.0 version.
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部