Auf OnChange im RichEdit reagieren

[Tormentor32]

Aber warum kannst du das OnChange nicht nutzen? Reagiert das nicht auf eine Selektion?

Edit: habs grad ausprobiert, reagiert tatsächlich nicht... wie wärs, wenn du im OnMousMove schaust, ob sich SelLength verändert hat?

Edit2: Hier das könnte dir helfen:

Delphi-Quellcode:

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  caption := inttostr(RichEdit1.SelLength);
end;