Du kannst die aktuelle Lines Zeile untersuchen.
Bevor du nachhackst, hier zwei Funktionen:
Delphi-Quellcode:
function CurLine(Memo: TCustomMemo): Longint;
begin
with Memo
do Result := SendMessage(
Handle, EM_LINEFROMCHAR, SelStart, 0);
end;
function CurCol(Memo: TCustomMemo): Longint;
begin
with Memo
do Result := SelStart - SendMessage(
Handle, EM_LINEINDEX, CurLine(Memo), 0);
end;
Die erste gibt dir die aktuelle Zeile, die zweite die Position des Cursors in der Zeile.