J jinheking Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-27 #1 我想用delphi做一个手写板,但是我得不到行号,因为我是初学乍练,希望回答者回答的 尽可能详细一些。谢谢! ^&^
W www Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-27 #3 行号 memo1.CaretPos.x, 列号 memo1.CaretPos.y, procedure TForm1.Memo1Click(Sender: TObject); begin showmessage('行号:'+inttostr(memo1.CaretPos.x); showmessage('列号:'+inttostr(memo1.CaretPos.y); end;
行号 memo1.CaretPos.x, 列号 memo1.CaretPos.y, procedure TForm1.Memo1Click(Sender: TObject); begin showmessage('行号:'+inttostr(memo1.CaretPos.x); showmessage('列号:'+inttostr(memo1.CaretPos.y); end;
S shangjintong Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-28 #7 可以手工编写。 例如:设两个全局变量 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.
可以手工编写。 例如:设两个全局变量 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.