Wahre Position des Cursors im Memo

[martinf16]

Hallo!

Zum Bestimmen der Position, an der sich ein Cursor im Memo Feld befindet kenne ich zwei Möglichkeiten:

SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.Selstart, 0) und
charetPos(X,Y) Das funktioniert auch alles ganz gut, bis zu dem Punkt, wo es im Memo einen Zeilenumsprung gibt. Geht die erste Zeile des Memos über 2 "Zeilen", da sie länger als eine Zeile ist, geben mir beide Möglichkeiten einen "falschen" Wert zurück. Ich möchte den Wert haben, der auch bei memo1.lines[i] als i verwendet wird.

Also als Beispiel:

Delphi-Quellcode:

Lines im Memo                        Ergebnisse   Ergebnis sollte sein:
1: Dieser String bricht um, da er    Line = 1     Line = 1
   zu lang ist.                      Line = 2     Line = 1
2: Dieser String bricht nicht um.    Line = 3     Line = 2
3: Dieser String bricht nicht um.    Line = 4     Line = 3

Ich hoffe, ihr könnt mir helfen. Vielen Dank!