Wahre Position des Cursors im Memo

[Progman]

In einem Delphi beiliegenden Beispiel (RTF-Editor) wird das folgendermaßen gelöst:

Delphi-Quellcode:

//Editor ist ein TRichEdit
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('Line: %3d   Col: %3d', [CharPos.Y, CharPos.X]);
end;

Wäre mal zu testen, ob das auch mit TMemo geht. Habs noch nicht probiert.