Memo - Wechsel der aktuellen Zeile

[Amateurprofi]

Ich habe auf einer Form ein TMemo und TEdit.
Im TEdit möchte ich Daten ausgeben, die sich auf die Zeile des TMemo beziehen, in der sich das Caret befindet.

Wie kriege ich mit, wenn das Caret die Zeile wechselt ?

Bisher mache ich das so

Bei MemoChange merke ich mir die Zeilennummer und mache ein Update des TEdit.
Bei MemoKeyUp und MemoMouseUp hole ich mir die Nummer der Zeile in der das Caret steht, und wenn sie anders ist als die germerkte, merke ich mir die neue Zeilennummer und mache ebenfalls ein Update des TEdit.

Weiß jemand eine elegantere Methode ?

[marabu]

Hallo Klaus,

was ist, wenn du im Programm Memo.SelStart setzt?

Ich würde das Memo durch ein RichEdit ersetzen:

Delphi-Quellcode:

procedure TDemoForm.RichEditSelectionChange(Sender: TObject);
begin
  with Sender as TRichEdit do
    Edit.Text := Lines[CaretPos.Y];
end;

Freundliche Grüße