你的浏览器禁用了JavaScript, 请开启后刷新浏览器获得更好的体验!

如何使TLabel在Delphi中表现得像超链接？

如何使TLabel在Delphi中表现得像超链接？注意：由于向后兼容性问题，我对使用TLinkLabel不感兴趣。

已邀请:

4 个回复

将其涂成蓝色，将样式设置为下划线并添加OnClick事件！

procedure TForm1.Label1Click(Sender: TObject);
var
  MyLink: string;
begin
  MyLink := 'http://www.mysite.com/';
  ShellExecute(Application.Handle, PChar('open'), PChar(MyLink),    
   nil, nil, SW_SHOW);
end;

素汞读

这取决于您对超链接的要求。我只是...... 将字体颜色设置为蓝色使用OnMouse [Enter | Leave | Move]事件将下划线样式适当地应用于字体使用OnClick事件生成浏览器＆amp;根据需要更改字体颜色。

宦哨抹存胳

您使用的是哪个版本的Delphi？看看我的Delphi 4 IDE，TLabel没有OnMouseEnter / OnMouseLeave事件，当用户将鼠标悬停在“链接”上时，需要将光标更改为“Hand”。它确实有OnClick事件，您可以连接它以启动用户的Web浏览器：如何在Delphi中引入前端或启动浏览器

爆山

可以选择标记并将焦点放在浏览器中的链接上。因此，我会考虑使用窗口控件（如所有者绘制的TButton）来执行此任务。

要回复问题请先登录或注册

如何使TLabel在Delphi中表现得像超链接？

4 个回复

发起人

tlabel

问题状态

如何使TLabel在Delphi中表现得像超链接？

与内容相关的链接

4 个回复

发起人

tlabel

问题状态