说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

自制THyperLink组件-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
自制THyperLink组件-Delphi资料

很多软件在其About窗口或Help菜单中,可让用户通过单击一段文字就能方便地访问某个网页。比如,Delphi的Help中就有可直接访问该公司主页的菜单项。下面介绍的THyperLink组件是用Delphi3.0编制的,可方便地实现上述功能。

THyperLink是基于TCustomLabel组件的,它有以下特性:

属性:

普通Label组件的所有特性,考滤到实际用途只公布了Caption、Color、 Cursor、 Enabled、 Font、 Hint、 ShowHint、 Visible等属性,其中Font属性在构造函数中被初始化为蓝色带下划线字体,Cursor被置为手型鼠标。别外,增加了URL属性用于存贮网址。在组件内部接管了OnClick事件,用于实现用户单击后调用默认浏览器打开URL中指定的网页,处理各种错误,并将Font属性置为紫色。

方法:

Function Browse(AURL: string): Integer;

{ AURL为网址或文件名。}

事件:

OnClick; { 响应用户鼠标单击动作。 }

具体源码如下:

{ THyperLink VCL

Version 1.0

This is freeware. If you make cool changes to it

please send them to me(1234@5678.com).

}

unit HyperLink;

interface

uses

Windows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs

ShellAPI

Stdctrls;

type

THyperLink = class(TCustomLabel)

private

FURL: string; // 存贮网址或文件名

FOwnerHandle: HWND;

protected

procedure DoOnClick(Sender: TObject);

// 处理用户单击鼠标

public

constructor Create(AOwner: TComponent); override;

Function Browse(AURL: string): Integer;

published

property Caption;

property Color;

property Cursor default crHandPoint;

property Enabled;

property Font stored True;

property Hint;

property ShowHint default True;

property URL: string read FURL write FURL;

property Visible;

property OnClick;

end;

procedure Register;

implementation

constructor THyperLink.Create(AOwner: TComponent);

begin

inherited Create(aOwner);

FOwnerHandle := (Owner as TForm).Handle;

OnClick := DoOnClick;

Cursor := crHandPoint;

ShowHint := True;

Font.Color := clBlue;

Font.Style := [fsUnderline];

Font.Size := 10;

end;

procedure THyperLink.DoOnClick(Sender: TObject);

begin

if (not (csDesigning in

ComponentState) and (FURL < >'')) then

begin

Browse(FURL);

// 调用相应程序打开URL中的网址、文件

Font.Color := clPurple;

end;

end;

Function THyperLink.Browse(AURL: string): Integer;

var

RtnValue: Integer;

begin

RtnValue := ShellExecute(FOwnerHandle

'Open'

PChar(AURL)

nil

nil

SW_SHOWNORMAL);

case RtnValue of // 处理各种错理

0: ShowMessage('The operating system is out of memory

or resources.');

ERROR_BAD_FORMAT: ShowMessage( 'The .EXE file is invalid

(non-Win32 .EXE or error in .EXE image');

SE_ERR_ACCESSDENIED: ShowMessage( 'The operating system

denied access to the specified file.');

SE_ERR_ASSOCINCOMPLETE: ShowMessage( 'The filename

association is incomplete or invalid.');

SE_ERR_DDEBUSY: ShowMessage( 'The DDE transaction

could not be completed because other DDE transactions

were being processed.');

SE_ERR_DDEFAIL: ShowMessage( 'The DDE transaction failed.');

SE_ERR_DDETIMEOUT: ShowMessage( 'The DDE transaction

could not be completed because the request timed out.');

SE_ERR_DLLNOTFOUND: ShowMessage( 'The specified

dynamic-link library was not found.');

SE_ERR_FNF: ShowMessage( 'The specified file was not found.');

SE_ERR_NOASSOC: ShowMessage( 'There is no application

associated with the given filename extension.');

SE_ERR_OOM: ShowMessage( 'There was not enough

memory to complete the operation.');

SE_ERR_PNF: ShowMessage( 'The specified path was not found.');

SE_ERR_SHARE: ShowMessage( 'A sharing violation occurred.');

else

if(RtnValue < =32) then ShowMessage( 'Unknown

Error in ShellExecte.');

end;

Result := RtnValue;

end;

procedure Register;

begin

RegisterComponents('Tools'

[THyperLink]);

end;

end.

由于THyperLink内部使用ShellExcute函数来打开网页,而ShellExcute函数的特点是可调用与给定文件相关联的应用程来打开该文件,所以在属性URL中设置其它类型的文件(如E-mail地址、文本文件、图像文件,甚至是数据库文件),只要用户的计算机内有相应程序,ThyperLink就能打开该文件。不过E-mail地址应写成mailto:1234@5678.com这样的型式。以下是一简单的示例程序:

unit sample;

interface

uses

Windows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs

Menus

StdCtrls

HyperLink;

type

TForm1 = class(TForm)

HyperLink1: THyperLink;

MainMenu1: TMainMenu;

Help1: TMenuItem;

BorlandHomePage1: TMenuItem;

procedure BorlandHomePage1Click(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BorlandHomePage1Click(Sender: TObject);

begin

HyperLink1.Browse('http://www.borland.com');

end;

end.

因为ThyperLink组件的父类是TCustomLabel组件,所以它拥有TCustomLabel的全部属性、方法、事件,这就是说如果需要的话,你可直接使用它们。

Camera360开放SDK:拍照和滤镜一行代码搞定 一周消息树:计算机将拥有五感 人类面临威胁? 通晓数学的人就可以当程序员吗? 360发布企业版4.0 可自定义软件白名单 不要总是依赖机器 MongoDB扩展彰显分片功夫 Dell与HP的OpenStack的战略:渠道对抗SLA 路况电台王雷:未来车载系统会是Android的天下 移动周报:2012移动开发工具系列盘点 谷歌不愿错失机会 Android或不再成它人独享 黑客文化:Facebook公布2012年Hackathon大赛顶级“黑客作品” 中国移动音乐开放平台正式对外开放 GitLab 4.0发布 更好地支持PostgreSQL 傻瓜式移动应用开发平台:专访摩讯创始人赵健 日本DeNA进军中国智能电视,与海信战略合作 扎克伯格不仅为Poke编码,而且还“献声” Wordament:首款支持Xbox Live成就的iPhone游戏 使用Storm实现实时大数据分析! 孙博凯:微软日益开放,Windows Azure更加拥抱开源 大数据计算:如何仅用1.5KB内存计算十亿个不同的对象 我们为什么爱EC2和S3却彻底抛弃EBS 不畏Surface:诺基亚明年或推Windows平板 Linus Torvalds:用户程序被破坏永远是Kernel的问题! Python高效编程技巧 苹果加速硬件迭代 iPad5原型机曝光 宏碁推99美金平板 价格创历史新低 黑莓10全键盘版代号N系列,谍照泄露! 那些年我们用过的互联网产品 QQ亿级业务演变:从文件、音视频说起 少年企鹅的成长之旅:QQ体验设计发展史 全球超算Top 500:Linux已占93.8%,Windows或将消失 AWS东部地区再次发生宕机 Netflix等网站受影响 急!!! 一个烦人的问题 关于在应用程序中使用dll中资源的问题 關於並行執行的問題 也许你现在就会改变!! 看 http://Scjp.myrice.com 为什么要学Java 其实我们很封闭! 关于NT的小问题! 请问: 請問哪里有c++的書籍下載? 几个控件重叠在一起,怎样用代码的方式使其中的某个控件在运行时放至最上!?谢! 也许你现在就会改变!! 看 http://Scjp.myrice.com 其实我们很封闭! 如何发布我的网站? 怎样编程在Windows开始菜单的的“启动”栏中添加本程序的快捷方式? 谁有installshield 6.30的license注册文件? 请问:DataGrid在WebForm中明明有数据显示,但用浏览器看就没,为何? 显卡选择问题 ? 也许你现在就会改变!! 看http://Scjp.myrice.com 其实我们很封闭! 一个Acme .....???? 共计350分哟。急急。。。。我在PHP区有发言。但是还连不上SQL SERVER2000呀。。请进 boyqing(阿清):我的问题转到这了! 谁有installshield 6.30的license注册文件? 高手请进! 大家用java都来做什么????? 搞linux,unix底层的在中关村有没有搞头? 请问为什么我的CBuilder中在菜单项File/new下的无法找到RemoteDataModule?我是新手,请帮忙! 这几句TSQL有错?帮忙看看 请教关于网卡与声卡冲突的处理方法 谁有installshield 6.30的license注册文件? 请问如何在页面操作中保存dataset 怎样选定ListCtrl中的一行(包括subItem区域)? 类对象的实例和类的实例有什么区别?? 请问各位大虾,公文管理系统怎么做? 如何将TIF或TIFF文件转换成网页可以显示的JPG,或是GIF文件(最好给出JAR和例子) 这段程序应该怎么编? 各位老大,近来看看吧,一下午了也没有人来回答,苦命呀!加分...狂加....跳楼... TO net_lover(孟子E章) : 在datagrid中如何在获得当前字段内的内容? 高手都过来,这里有好几个问题!!! 安全队列问题?up有分! 如何在XML文件中獲得某個節點下重復的節點的個數﹐用IXMLNodeCollectionMA嗎? 谁解决了我的问题,我再送他100分一共200分!够吧! 滚屏公告栏滚动速度太快,如何调慢?帮帮忙 一个简单的问题? 需要紧急帮助!!!!!! 一个进制转换的问题? 刚开始看java,第一个hello,java程序 HELP ME!JAVA & XML的问题。。。 用过F1做报表的请进 在java里怎样创建自己指定目录,如不是文件? 关于C51串口通讯问题? Realplay的问题 RDS无法启动业务对象上的方法? 为什么蚂蚁等小昆虫可以在天花板上爬行?叫蚂蚁等小昆虫都可以爬到天花板上,就算天花板再光滑都可以,但是人不行(除非你是蜘蛛人大概还可以),好象也没有听说过它们的脚构造特殊,也 蜗牛到底属不属于昆虫科学本上有一道题说:野生的蜗牛是农业上的_______(填“害虫”或“益虫”).是填害虫吗?还是,这道题根本不对,蜗牛不属于昆虫.. 从哪里看出法布尔沉溺于昆虫世界 为何昆虫能反地心力,在天花板上爬行? 蜗牛算动物还是昆虫? 到底有没有红外线夜视望远镜呢? 请问蜗牛是昆虫么? 家里出现的蜗牛身上有没有寄生虫或者血吸虫我家潮湿的地方有时候好出现蜗牛,我听说蜗牛身上有寄生虫和血吸虫,请问是这样的吗?我们这是北方,河南.这样蜗牛到底有没有害 语文六年级上册的14课《狼与鹿的故事》要求全部的资料 关于描写大海的好句子20句OK 军用望远镜和民用望远镜的区别是什么? 法布尔的昆虫记 全文昆虫记全文出版社:哈尔滨页 数:219页目录蜘蛛黑肚皮的塔蓝图拉毒蛛虎纹园蛛狼蛛狼蛛的家庭生活天生攀岩家蜘蛛离乡记蟹蛛蟋蟀蟋蟀的住所蟋蟀的歌蝉蝉和蚁蝉的 描写大海的句子 如何辨别、认识军用望远镜九九式甲HJ8342是哪一个兵种使用的望远镜?是否有这一款望远镜?上标有50X50 168FT AT 1000YDS ,请内行人士给以解释. 夏天五种会叫的昆虫? 请问这是什么虫,好像蜗牛啊!可是比蜗牛大好多.可不可以吃? 军用望远镜和民用望远镜观测效果有什么不同,价格差别多少? 描写蓝天的比喻句 急呀.快!谁有好的句子,最好多写几句湖水的也行 这是什么虫子呀?像蜗牛!今天下雨了,我在冲凉的时候看见的,身体像蚂蝗,爬行想蜗牛,比蜗牛稍微快,行走像蛇一样S形,身体像个T字形. 这是什么蜗牛?昆虫鉴定 描写理想的比喻句快,我急用,最好是自己想的! 蜗牛是一种昆虫是什么说明方法 请问红外线夜视望远镜大约多少钱 是描写山的比喻句不是用山比喻什么是描写山的比喻句不是用山比喻什么,要五句 夏天会鸣叫的昆虫有哪些 望远镜红外线怎么开 夏天家里虫子多怎么办啊每次到夏天虫子就开始多起来了,那些虫子有点像蚊子,小小的可能纱窗都挡不住,也不知道是外面进来的还是屋里的,反正我的房间很久都不打扫卫生的在家光着膀子上 夏天会鸣叫的昆虫 谁有描写大海的现代诗歌要有 作者和 出处 用四个又是写一个比喻句 红外线望远镜价格 大概多少 天文望远镜与普通望远镜区别我有一台天文望远镜,请问与普通望远镜的区别,除了倍数和架子意外还有什么区别?可以用来进行户外观景吗? 如何把(√3)*3cosA-sinA表示成 r*cos(A+α) 红外线望远镜报价 好吗 极坐标:p(2cosA+5sinA)-4=0.化为直角坐标方程, 若存在a∈R,使sina≥1成立,则cos(a-π/6)的值为 红外线望远镜用电吗? 法布尔的《昆虫记》好像昆虫记里有一种虫子,走的路是前面虫子走过的,很小,白白的,我要用它写作,谁知道那是什么虫子,告诉我一声,谢啦 u=(1+sina)/cosa 用u表示sina 请问哪里有卖红外线望远镜 把极坐标方程化为直角坐标方程 (1)psina=2 (2)p=-10cosa (详解 法布尔的《昆虫记》被称为什么的史诗?法布尔的《昆虫记》被称为______的史诗? 描写海洋里面景物的句子 将极坐标方程化成直角坐标方程 p=2cosa+6sina 夏天夜里叫的昆虫 求5种在夏天鸣叫的昆虫答得好好的可以追加, 资料 夏天晚上叫声超大的昆虫,是什么虫子?前天晚上突然听到了!感觉好怪,声音很难听!而且很大!就像电锯的噪音一样.反正不是蝉/也不是青蛙!声音不同.好像还会飞!我上阳台打手电,就看到远处有 吃蜗牛 虫子种类黑色的 有3对腿 六年级上册语文第14课鹿和狼的资料 夏天夜里唱歌的昆虫有哪些 描写大海的优美句子 求5种在夏天会鸣叫的昆虫 r=acosθ 和r=asinθ 所围图形的公共部分的面积 蚂蚁是昆虫 还是动物谢谢了,大神帮忙啊 蜗牛属不属于昆虫 曲线r=a^2cosθ所围成的图形面积()A∫[0,π/2]((a^2cosθ)^2/2)dθB∫[0,π/2](a^2cosθ)^2dθC∫[-π,π]((a^2cosθ)/2)dθD∫[-π,π](a^2cosθ)^2dθ 描写大海的词语 五种在夏天会鸣叫的昆虫 在极坐标中 过圆P=6COSX的圆心且垂直于极轴的直线的极坐标方程是?圆那里是个(ROU) 不好打我就打成了P呵呵 我对极坐标那章记得不是很清楚了
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘