delphi - 如何使 TLinkLabel 在 Delphi 中工作？

Question

我在表单上放置了一个 TLinkLabel，用包含有效 HTML 链接的标题填充它，并得到了一些漂亮的蓝色下划线文本。当我运行该程序时，我希望它能够调用 Firefox(我的默认浏览器)并自动打开链接。显然事实并非如此。

帮助文件说我必须在 OnLinkClick 事件处理程序中对此进行编码。但它没有说明如何做到这一点。它将传递一个名为“Link”的字符串值。我怎么说“调用默认浏览器并打开链接”？

Answer 1

您可以调用ShellExecute。我为通用调用编写了这个方法，应该适用于您的情况。

procedure ShellOpen(const Url: string; const Params: string = '');
begin
  ShellAPI.ShellExecute(0, 'Open', PChar(Url), PChar(Params), nil, SW_SHOWNORMAL);
end;

在你的代码中你应该调用这个

procedure TForm1.LinkLabelClick(Sender: TObject);
begin
  ShellOpen(LinkLabel.Caption);
end;