Zeilen- und Spalteposition des Corsurs in Memo Zeigen

[Äfan]

Hi,

Ihr kennt doch sicher beim Editor die Angabe, wo Zeile und Spalte des Coursors drin steht. Wie kann ich das aus einer memo machen ? Also wenn sich die Coursor Position in Memo1 ändert, so soll die Zeile und Spalte in StatusBar1.Panels[0].Text eingefügt werden.

MFG

[Joe24]

Über das KeyUp-Ereignis des Memo realisiert sieht es so aus:

Delphi-Quellcode:

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Statusbar1.Panels[ 0].Text := IntToStr( Memo1.CaretPos.Y) +' : '
      +IntToStr( Memo1.CaretPos.X);
end;