我如何做一个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 [进入|发表|移动]事件下划线样式适当地应用到的字体
  • 使用onclick事件催生一个浏览器和改变字体颜色,根据需要。

您使用的是什么版本的Delphi? 看着我的德尔福4个IDE,TLabel的没有OnMouseEnter在/事件OnMouseLeave在,这是必要的,当用户将鼠标悬停在“链接”来改变光标移动到“手”。

它有OnClick事件,你可以线最多,推出了用户的Web浏览:

http://stackoverflow.com/questions/1108075/how-to-bring-front-or-launch-browser-in-delphi

人们可以选项卡,并给予重点在浏览器中的链接。 因此,我会考虑使用一个窗口控件(如一个所有者绘制TButton的)这个任务。

分类:德尔福 时间:2012-01-01 人气:0
分享到:

相关文章

  • 德尔福TWebBrowser并没有点击超链接文件的回应 2012-09-28

    我有TWebBrowser组件(德尔福7),我是从内存流加载HTML. 页面加载罚款的H​​TML代码,正确地显示页面. 但是,当我试着点击喜欢的"file:/// C:/dir/page.html"与地址的任何超链接(href属性值),没有任何反应. 没有错误消息,并且浏览器不尝试去到另一页. 网址是100%正确的 - 当我加载相同网页的相同TWebBrowser实例,但来自内存流硬盘驱动器上的文件,而不是时,正是这个环节工作正常. 任何想法可能是错误的? 我试着执行以下语句: Ol

  • 德尔福XE2的TLabel glowsize导致在屏幕的左上角图形问题 2012-10-25

    自从从XE移植一个应用程序来XE2我注意到一个奇怪的错误,刚刚开放的形式在IDE或运行应用程序,一个白色正方形框绘制在屏幕的左上角(表单),这去远在将鼠标或窗口上. 我跟踪下来到的TLabel,简单地丢弃一个表格上,并设置Glowsize 0以上导致该问题. 我重新安装并更新到最后XE2 UPDATE3和问题仍然存在. 任何人有一个线索,这是怎么回事? --------------解决方案------------- 这个问题在开始TCustomLabel.AdjustBounds通过调用DoDr

  • 我如何能实现一组标准的超链接检测规则德尔福(Delphi) 2013-07-15

    我现在做的超链接自动检测文本中在我的计划. 我说的很简单,只找HTTP://或www. 然而,用户向我建议我把它扩展到其他形式,例如:https://开头 或 .com 然后,我意识到它可能还不止于此,因为有ftp和邮寄地址和文件,其他所有的顶级域名,甚至电子邮件地址和文件路径. 我觉得最好是把它限制的是由以下一些经常使用的标准集,目前正在使用的超级链接检测规则实用. 也许微软的Word是怎么做的,或者也许RichEdit中如何做它,或者也许你知道一个更好的标准. 所以我的问题是: 是否有一个内

  • 德尔福6 - TWebBrowser组件更改光标 2012-02-05

    在我的德尔福6 Pro程序我能成功地用下面的代码来改变一个TWebBrowser组件光标,但只有当它不包含有效的Web文档: const theCursorID: integer = 1; Screen.Cursors[theCursorID] := LoadCursorFromFile(PChar(theAniCursorFilename)); theWebBrowser.Cursor := theCursorID; 只要一个网页文件加载,光标恢复为标准鼠标指针. 我猜这是因为,当一个网页文件

  • 如何禁用德尔福某些键 2012-04-26

    我已经添加了下面的代码我的程序当中,我的理解,必须被禁止进入字母. 我将窗体的KeyPreview属性设置为True,接下来,我添加了这个代码 procedure FormKeyPress(Sender: TObject; var Key: Char) ; 这被定义为 procedure TFibo.FormKeyPress(Sender: TObject; var Key: Char); begin if Key in ['a'..'z'] then Key := #0 end; 这似乎并没有

  • 德尔福标签值排序 2012-05-12

    我试着去标签的值进行排序. 我有很多的标签用一个整数值. 标签被称为像标签1,Label2的[...],它通过进出口访问FindComponent. 我在整理整数值伊夫存储在数组中没有问题,但问题是,排序后,我不知道哪个标签有什么样的价值. 我的目标是想通过自己的价值这些标签进行排序,所以我会得到像其值排序标签数组. 林停留在这一点:(如: Label1.Caption := 10; Label2.Caption := 4; Label3.Caption := 7; for i := 1 to

  • 德尔福 - 可视化窗体继承 - 组件基地CLASSE检测 2012-07-15

    我使用的VFI(可视化形式继承),我需要检查是否实例化形式的一个组成部分属于formclass或窗体超类. 有任何想法吗 ? unit1 TFormStatus = class(TForm) cpPanel: TPanel; lblStatus: TLabel; end; unit 2 TFormCodigo = class(TFormStatus) lblCodigo: TLabel; end; frmCodigo: TFormCodigo: 在frmCodigo的任何实例我想检测lblCod

  • 的FormatDateTime与中国的位置 - 错characters- 2007年德尔福 2012-10-10

    输出:期限:自11Ê®¶þÔÂ10至13Ê®¶þÔÂ-10 以上输出是这样一行:的FormatDateTime('DD-MMM-YY',DATEVALUE) IDE将是德尔福2007年,我们正试图挡了我们的应用到中国市场. 我怎样才能显示正确的字符? 随着设置转印地文(印度),而不是搞笑人物我有"?". 我想,以显示在报表上的日期,使用的ReportBuilder 11. 任何帮助将非常感激. --------------解决方案------------- 人物似乎是正确的,只是他们I

  • 德尔福与HTML / CSS界面 2012-11-29

    我想开发与HTML / CSS图形用户界面Delphi应用程序,不一定从在网络浏览器上运行. 我想这样做也创建动画等更丰富的图形用户界面和正常VCL组件/ Windows外观打破. 有什么建议么? --------------解决方案------------- 在我的应用程序我有一个嵌入式浏览器,我已经实现了的IDocHostUIHandler接口. 这使我能够通过"GetExternal"的方法公开的COM对象. 我只是有一个公开的方法和我的应用程序,这使得他们的嵌入式浏览器内承载的

  • 德尔福DFM未找到 2012-12-17

    我有我的项目中的一个xyz.pas文件引用. 但该文件没有和我在一起. 我遇到的xyz.dcu和xyz.pas文件xyz.obj文件. 当我试图编译该项目我有错误"xyz.dcu未找到". 所以我已经包括xyz.dcu的搜索路径. 现在,我得到错误"xyz.dfm未找到". 请给我建议的解决方案. 是否有可能编译只.dcu和.OBJ文件的项目? 提前致谢. 问候,那仁 --------------解决方案------------- 我希望你没有失去你的工作. 简体,

Copyright (C) 55228885.com, All Rights Reserved.

55228885 版权所有 京ICP备15002868号

processed in 0.192 (s). 10 q(s)