Position des Cursors in der RichEdit-Komponente

[Sharky]

Zitat von Nailor:

Ja, das sind aber die Koordinaten. Er will doch bestimmt die aktuelle Zeile und das wievielte Zeichen der Zeile wissen.

CaretPos liefert auch die die Zeile und Spalte zurück.

Delphi-Quellcode:

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with (Sender AS TRichEdit).CaretPos do
   begin
    Label1.Caption := Format('(%d, %d)',[X+1,Y+1])
   end;
end;

Zeigt in Label1 also immer die aktuelle Position des Carets an.