在先等待-50分 怎么在TForm1.RichEdit1Change获取光标在RichEdit的行号

Question

在先等待-50分  怎么在TForm1.RichEdit1Change获取光标在RichEdit的行号

Answer 1

RichEdit是个单行文本编辑框，哪来的行号？

Answer 2

在你的delphi安装目录下的demo文件夹下有很好用的范例的；建议楼主好好看看；^_^；procedure TMainForm.UpdateCursorPos;
var
  CharPos: TPoint;
begin
  CharPos.Y := SendMessage(Editor.Handle, EM_EXLINEFROMCHAR, 0,
    Editor.SelStart);
  CharPos.X := (Editor.SelStart -
    SendMessage(Editor.Handle, EM_LINEINDEX, CharPos.Y, 0));
  Inc(CharPos.Y);
  Inc(CharPos.X);
  StatusBar.Panels[0].Text := Format(sColRowInfo, [CharPos.Y, CharPos.X]);
end;