Delete or Edit hyperlink

atlandev

Hello,
I try to update some of my apps from version 4 to 6. I hugely used hyperlink to make my text more friendly user, and i'm little lost with the "new" :) way.

I use this code to find my link (found here on the foum)...

Code

var
   objList: TWPTextObjList;
begin
  objList := Self.WPRichText.CodeListTags(wpobjHyperlink, '*ALL*', True);
  for i := 0 to objList.Count - 1 do
    if (objList[i].Source = url) then
    begin
      objList[i].Source := ''; <- I just add this
      objList[i].EndTag.Free;
      objList[i].Free;
      break;
    end;

Alles anzeigen

...but...
this code do not delete my hyperlink, this one transform my link to normal text.

My goal is for example:
cltl + clic (on the link) open a dialog box to let my user edit the link
or alt + clic delete all the link (link + url)
How can i do that ?

best regards,
thanks for your help.

support

You can use code like this:

Code

procedure TForm1.WPRichText1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  hyperlink: TWPTextObj;
  s : String;
begin
  if (Button = mbLeft) and (ssCtrl in Shift) then
  begin
    hyperlink := WPRichText1.CodeInsideOf(x, y, wpobjHyperlink);
    if hyperlink <> nil then
    begin
       s := hyperlink.Source;
       if InputQuery(WPLoadStr(wpInsertHyperlink), WPLoadStr(wpInsertHyperlink_URL), s) then
       begin
        hyperlink.Source := s;
        hyperlink.EmbeddedText := s;
        WPRichText1.ReformatAll(false, true);
      end;
    end;
  end;
end;

Alles anzeigen

This code is adapted from the code in EditHyperlink() in unit WPCtrRich.pas.

Julian

Delete or Edit hyperlink

Ähnliche Themen

PNG Scrolls

WPTools 8 is available now

WPTOOLS Changelog