Hallo,
Der Ankerpunkt ist der Punkt am dem zuletzt SelLength 0 war.
Im Richedit läßt es sich einfach prüfen:
Delphi-Quellcode:
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
if RichEdit1.SelLength = 0 then
Caption := IntToStr(RichEdit1.SelStart) //Ankerpunkt
else
Label1.Caption := IntToStr(RichEdit1.SelStart);
end;
Ist Ankerpunkt > SelStart geht die Markierung in die "negative" Richtung.