ungekürzten Link in Meldungsfenster anzeigen

[Helmi]

Hallo Zusammen,

ich habe einen Link, den ich in einer Meldung anzeigen lassen möchte.

Verwende ich MessageDlg, dann wird mir der Link abgeschnitten.
Das selbe bei TaskDialog.

Nur bei einer MessageBox funktioniert es.
Da sie aber so oldschool ausschaut, möcht ich sie nicht nehmen.

Schön wäre entweder MessageDlg oder TaskDialog.

Gibt es da Möglichkeiten, den Link komplett anzeigen lassen zu können?
Im Forum habe ich ein paar Threads gefunden, aber da kommt wird immer auf MessageBox verwiesen.

Schön wäre es den TaskDialog verwenden zu können.
Selbst wenn ich den Link TaskDialog.ExpandedText zuweise, wird dieser dort abgeschnitten.

Mein Testcode mit dem Link, um die unterschiedlichen Meldungsfenster testen zu können:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
const
//  Msg6 = 'Link: "%s" nicht erreichbar!' + sLineBreak + 'Es konnten keine Daten ausgelesen werden!';
  Msg6 = '"%s"';

var
  Link: String;

begin
  Link := 'https://www.benzinpreis.de/statistik.phtml?waehrung=EUR&einheit=Liter';
//  Link := 'https://www.benzinpreis.de/statistik.phtml?waehrung=EUR';
//  Link := 'safasfasffäldsjflkaösjfklasjfösjfklasöjfaslkdfjlöasjflödsaflködsf';

  case RadioGroup1.ItemIndex of
    0:  begin
          MessageDlg(Format(Msg6, [Link]), mtError, [mbOk], 0, mbOk);
        end;
    1:  begin
          TaskDialog1.Caption := 'Fehler';
          TaskDialog1.Title := Format(Msg6, [Link]);
//          TaskDialog1.ExpandedText := Link;
          TaskDialog1.MainIcon := tdiError;

          TaskDialog1.Execute;
        end;
    2:  begin
          Application.MessageBox(PWideChar(Format(Msg6, [Link])), 'Fehler', MB_OK);    // [smbOK]
        end;
  end;
end;

Anbei drei Bilder der verschiedenen Meldungsfenster.