Paste Zwischenablage - Link erkennung?

Gerade verschickt, vielen Dank!

super 😃 werd ich dann gleich mal probieren wenns dann da ist die neue Version

WPTools 9.1 - ja, wird komplett unterstützt.

Am einfachsten über den Windows Emoticon Dialog:

Drücke Windows + . [punkt] taste 👍

WPTools 9.1 unterstützt hier, anders als viel Software, auch kombinierte Emotions, also mit Attributen versehene Symbole.

Super danke funktioniert 😃

Bei der Gelegenheit wollt ich noch mal Fragen ob es schon einen leichten Weg gibt Smileys in den Editor einzubinden?

So könnte man den link der im Klemmbrett steht umwandeln:

procedure TForm1.WPRichText1BeforePasteText(Sender: TObject;
  RTFData: TWPRTFDataCollection; par: TParagraph; Stream: TStream;
  Reader: TWPCustomTextReader; OnlyBodyText: Boolean;
  var LoadedText: TWPRTFDataBlock);
var o : TWPTextObj;
begin
  if (par.Next=nil)
     and (par.StartWithW('http://') or par.StartWithW('https://'))
     and not par.HasText(#32)
  then
  begin
    o := par.InsertNewObject(0,wpobjHyperlink,true,false);
    o.Source := par.GetText(false, false);
    o.SetTag(par.AppendNewObject(wpobjHyperlink,true,true).NewTag);
  end;
end;

Oder, wenn man den source verstecken will

procedure TForm1.WPRichText1BeforePasteText(Sender: TObject;
  RTFData: TWPRTFDataCollection; par: TParagraph; Stream: TStream;
  Reader: TWPCustomTextReader; OnlyBodyText: Boolean;
  var LoadedText: TWPRTFDataBlock);
var 
    s : string;  
    a : Cardinal;
begin
  if (par.Next=nil)
     and (par.StartWithW('http://') or par.StartWithW('https://'))
     and not par.HasText(#32)
  then
  begin
     s := par.GetText(false, false);
     a := par.CharAttr[0];
     par.ClearText;
     par.AppendNewObjectPair(wpobjHyperlink,'link',a).Source := s;
  end;
end;

Gibt es eine automatische Link Erkennung wenn ich einen Link aus der Zwischenablage einfüge?

Wenn nicht gibt es zufällig schon ein snippet für BeforePasteText?