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 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.