RichEdit自动换行时如何得出当前光标位置实际的行号(100分)

RichedEdit1.CaretPos.y可得出当前行号，但当richedit1.WordWrap=True时，
其并不是按文本实际换行情况得出行号的。

用RichEdit（或者memo）控件制作文本编辑器时，通过访问lines?count属性可以得到总行数，但是若想知道光标当前所在行的行号就麻烦了，因为delphi没有提供这个属性。要实现这个编辑器必备功能，就须调用em_ LineFromChar。请试试下面的程序。
　　先在窗口中布置一个RichEdit或者memo（命名为editor），以及一个button。在button的onclick事件中写入下列代码。
　　var
　　CurrentLine:Integer;
　　begin
　　CurrentLine:=Editor?Perform(em_ LineFromChar,SFFFF,0);
　　Application?MessageBox(PChar(′当前行号是′＋IntToStr(CurrentLine)),′消息′,mb_ iconinformation);
　　end;
　　需要注意的是，第一行的行号为零。
　　二、如何撤消操作（undo）
　　对于memo来说，实现undo是不需编程的，只要让popupmenu属性为空，运行时就能用鼠标右键激活一个常用操作菜单，其中包括撤消、剪切、复制、粘贴、删除和全选六项。
　　但可惜的是，这一招对于功能强大的RichEdit控件居然行不通，害得我们还要自己设计一个popupmemu。当你用CutToClipBoard等语句轻松而顺利地完成了“剪切”等功能，接着便会无奈地发现，竟找不到undo或cancel之类的语句来执行“撤消”。
　　这时你需要这样处理：
　　RichEdit1?Perform(EM_UNDO,0,0);
　　另外还应检查是否允许撤消，从而开启或关闭弹出菜单中的“撤消”项：
　　Undo1?Enabled:=RichEdit?Perform(EM_CANUNDO,0,0)<>0;

RichedEdit1.CaretPos.y和 Perform(em_ LineFromChar,SFFFF,0);
的效果是一样的。

自己计算光标前的回车“#13#10”数量！！

是的，我就是想知道有没有不用计算光标前回车的快捷方法

gz

记录当前光标位置（从头开始的字符位置），并记录第一可视行。
切换到非wordWrap 状态。设置光标位置，获得行号
回到wordwrap ，重设位置，并恢复第一可视行。

with Memo1 do
MemoLine := SendMessage (Handle, EM_LINEFROMCHAR, SelStart, 0);//按回车计算的行号,注意用ELSTART而不是￥FFFF

搞错了