Hallo
Ich habe ein Programm mit WPTools 3 erstellt und möchte es auf WPTools 5 anpassen.
Dazu eine kleine Frage.
Ich möchte aus einem beliebigen Text alle Hyperlinks suchen.
Und zwar nicht nur den URL (wie hier im Forum schon mehrfach beschrieben), sondern auch den Link Teil (den sichtbaren Teil).
Unten habe ich mal ein Test gemacht. Leider scheint TWPTextObj keine Properies zu haben, die den Link Namen enthält.
Code
procedure TForm1.Button4Click(Sender: TObject);
var
obj : TWPTextObj;
begin
WPRichText1.TextCursor.MoveTo(WPRichText1.TextCursor.FirstPar);
obj := WPRichText1.TextCursor.NextObjAtCP;
while obj <> NIL do begin
if (obj.ObjType = wpobjHyperlink) and (wpobjIsOpening in obj.Mode) then begin
ShowMessage(obj.source) // URL Teil
end
obj := WPRichText1.TextCursor.NextObjAtCP;
end;
end;
Alles anzeigen