Zeilen- und Spalteposition des Corsurs in Memo Zeigen

[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;