TRichEdit: Abfragen Attribute ohne SelAttributes

[Kaiserone]

Lösung gefunden:
Ich kopiere das TRichEdit, suche im unsichtbaren Hilfs-RichEdit nach dem Link-Code und platziere dann den Cursor im Original-RichEdit.

Code:

Code:

procedure RtfShowLink (x, y : integer; Rtf, Hilf : TRichEdit);
var
  CharIndex  : integer;
  Pt         : TPoint;
begin
    RtfAssign(Rtf, Hilf);

    Pt := Point(X, Y);
    CharIndex := Rtf.Perform(Messages.EM_CHARFROMPOS, 0, @Pt);

    if CharIndex >= 0 then begin
      Hilf.SelStart := CharIndex;
      if Hilf.SelAttributes.Color = cl_Link then Rtf.Cursor := crHandpoint
                                            else Rtf.Cursor := crArrow;
    end;
end;