我如何使Tlabel在Delphi中表现得像超链接?
题
我如何使Tlabel在Delphi中表现得像超链接?
注意:由于向后兼容问题,我对使用Tlinklabel不感兴趣。
解决方案
上色蓝色,将样式设置为下划线并添加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 | well |移动]事件适当地将下划线样式应用于字体
- 使用OnClick事件来产生浏览器并根据需要更改字体颜色。
您正在使用什么版本的Delphi?看着我的Delphi 4 IDE,Tlabel没有onMouseenter/onmouseleave事件,当用户徘徊在“链接”上时,将光标更改为“手”是必要的。
它确实有OnClick事件,您可以将其连接到启动用户的Web浏览器:
一个人可以标签并将重点放在浏览器中的链接上。因此,我将考虑使用此任务的窗口控件(例如所有者绘制的tbutton)。
不隶属于 StackOverflow