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.

[Dalai]

Probier mal Windows.MessageBox(PChar(Format(Msg6, [Link])), 'Fehler', MB_OK or MB_ICONERROR);

[himitsu]

Du kannst nur selbst Zeilenumbrüche einbauen.

MessageDlg nutzt standardmäßig den TTaskDialog,
außer in uralten Windowsen, oder wenn man es abschaltet, dann wird ein nachgebauter VCL-Dialog auf Basis von TForm generiert.
> CreateMessageDialog wenn WindowsVersion<6 oder nicht IsNewCommonCtrl oder nicht UseLatestCommonDialogs oder nicht TStyleManager.SystemHooks oder nicht ActiveForm.IsSystemStyle

PS: Mit Strg+C bekommst du den ungekürzten Inhalt des Dialogs (egal ob WinAPI oder VCL) ... und dann via Strg+V in irgendeinen Texteditor.

[AuronTLG]

Eine offensichtliche Option wäre es auch, ein eigenes Dialogfenster zu bauen, was sich so verhält und aussieht wie gewünscht.
War bei mir bisher noch nicht nötig, sollte sich vom Aufwand her aber stark in Grenzen halten.

[himitsu]

Man könnte bestimmt auf Basis von CreateMessageDialog da etwas machen, ohne all zu viel selbstmachen zu müssen.

Alternativ gibt es in der Objektgalerie auch ein paar Dialog-Templates
> Datei > Neu > Weitere > Suche: Dialogfeld
bzw.
> Datei > Neu > Weitere > Delphi-Projekte > Einzelne Dateien > ...

Oder eben eine komplett eigene TForm, mit TLabel, TButton und so.

[Helmi]

Irgendwie hab ich solche Antworten schon befürchtet und erwartet.
Ich glaube ich lasse den Link einfach aus der Meldung rausfallen, macht die Sache auch einfacher.

Danke an euch alle

[himitsu]

Mit TLinkLabel, anstatt TLabel, kannst'e den Link auch anklickbar machen.

Wobei ich dachte, dass der TaskDialog sowas auch bieten könnte.
Oder einen Knopf, welcher die URL im Browser öffnet.