关于TRichEdit的小问题

[JackyZhao]

请问：1。怎样获得TRichEdit当前行和列？
2。怎样把光标移动到TRichEdit的某一行某一列？

[baxp]

得到有一个好像是caretpos属性
要移动就要法消息了好像是发wm_hscroll ,wm_vscroll

[kabob]

取当前行：
SendMessage(RichEdit->Handle,EM_LINEFROMCHAR,-1,0)+1
取当前列：
SelStart-SendMessage(RichEdit->Handle,EM_LINEINDEX,-1,0)+1

[kabob]

上面是BCB的，改一下就OK了 :-)

[YangYun]

var currentLine:integer;
begin
CurrentLine:=Editor.Perform(EM_LINEFROMCHAR,$FFFF,0);
Application.messagebox(pchar('当前行号是:'+inttostr(CurrentLine+1)),'消息',mb_information);
end;
{注意：第一行的行号为零｝
另外用CaretPos也可实现。
行＝Editor.CARETPOS.Y+1;
列＝Editor.CARETPOS.X+1]);

[JackyZhao]

谢谢给位的帮助！