ungekürzten Link in Meldungsfenster anzeigen

[jaenicke]

Biete doch einfach an, den Link in die Zwischenablage zu kopieren.

// EDIT:
Oder du verwendest Links im Taskdialog. Dann wird der Link wie ich gerade feststelle auch komplett angezeigt und kann zudem angeklickt werden:

Delphi-Quellcode:

uses
  Winapi.CommCtrl, Winapi.ShellAPI;

const
  TDF_ENABLE_HYPERLINKS = $0001;

function TaskDialogCallback(hwnd: HWND; msg: UINT; wParam: WPARAM; lParam: LPARAM; lpRefData: LONG_PTR): HRESULT; stdcall;
begin
  Result := S_OK;
  if msg = TDN_HYPERLINK_CLICKED then
  begin
    ShellExecute(0, 'open', PChar(lParam), nil, nil, SW_SHOWNORMAL);
  end;
end;

procedure ShowTaskDialog(const AContents: string);
var
  Config: TTaskDialogConfig;
  Res: Integer;
begin
  FillChar(Config, SizeOf(Config), 0);
  Config.cbSize := SizeOf(Config);
  Config.hwndParent := 0;
  Config.dwFlags := TDF_ENABLE_HYPERLINKS;
  Config.pszWindowTitle := 'Linkbeispiel';
  Config.pszMainInstruction := 'Klick bitte hier:';

  Config.pszContent := PChar(AContents);
  Config.pfCallback := @TaskDialogCallback;

  Res := TaskDialogIndirect(Config, nil, nil, nil);
end;

procedure TForm281.Button1Click(Sender: TObject);
begin
  ShowTaskDialog('Der Link ist <a href="https://www.benzinpreis.de/statistik.phtml?waehrung=EUR&einheit=Liter">https://www.benzinpreis.de/statistik.phtml?waehrung=EUR&einheit=Liter</a>!');
end;