Position des Cursors in der RichEdit-Komponente

[lodda]

Hallo

ich versuche gerade einen Editor zu schreiben. Ich will in einer Statusleiste die aktuelle Cursorposition (Zeile und Spalte) angeben. Soweit ich das gesehen habe, bietet die TRichEdit-Komponente keine Methode an um das herauszufinden.

[Tpercon]

TRichEdit.CaretPos.Y bzw. .X müßte das sein!

Gruß

[nailor]

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

[Sharky]

Zitat:

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.