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

DELPHI控件Tweblabel的编制

HTML文档下载 WORD文档下载 PDF文档下载
DELPHI控件Tweblabel的编制

Internet已经越来越多地渗透到生活的各个方面以及各个领域,许多人都有了自己漂亮的主页,但是,如何简洁而快速地调用这些主页呢?这就是用DELPHI的Tweblabel控件方法。首先来看看这个控件的威力。

上面这个Form窗体中放了三个Tweblabel 控件,你不用编写一句程序,只是简单地把它们拖放到Form 上,改一下网页的地址,就可以运行了。当光标移动到文字上时,光标就会自动变成手形,用鼠标轻轻地点击一下,浏览器就会启动,它将把你带到你想去的地方。接下来将引导你一步一步地学习,使你不但要了解这个奇妙的Tweblabel控件,而且要学会如何用DELPHI进行最奇妙的设计即控件编程。

启动DELPHI 3(或者DELPHI 4),菜单上有一个Component,用鼠标单击一下,选择New Component就会弹出一个窗口。有几样东西需要填写,先来解释一下。

Ancestor type:表示被继承的对象,是个下拉框,选TLabel。

Class Name:表示新创建的类的名字,取名为Tweblabel。

Palette Page:表示把Tweblabel放到控件面板上的哪个栏位上,选缺省Sample,也可以选别的,或者干脆取个新栏位名字。

Unit file name:选缺省。

Search path:选缺省。

然后按“Create Unit”按钮。

DELPHI为我们创建了这个单元,并建起了骨架。下面就是用DELPHI编写的代码。

unit weblabel;

interface

uses Windows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs

StdCtrls;

type

Tweblabel = class(TLabel)

private

{ Private declarations }

protected

{ Protected declarations }

public

{ Public declarations }

published

{ Published declarations }

end;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents('Samples'

[Tweblabel]);

end;

end.

DELPHI的Unit分为两个部分,一个是interface(界面),另一个是implementation(实现)。并且类的定义分private、protected、public、published几个,前面三个是类固有的,published则是控件特有的,其中的变量可以显示在DELPHI的控件编辑器里。

有了DELPHI编写的控件的骨架之后,又该如何添加代码呢?我们需要做以下几件事情:

1.需要一个变量存放Internet主页的地址;

2.需要一个函数来完成调用浏览器访问Internet主页;

3.需要初始化这个Tweblabel,比如字体、颜色、风格使它更像一个链接;

4.当鼠标在Tweblabel上单击时,浏览器就会被启动。

具体作法如下:

1.定义变量

private

{ Private declarations }

//定义一个变量存放HTTP主页的地址

Fhttpaddr:string;

//为了使控件编辑器能够修改它,则加入:

published

{ Published declarations }

property CHttpaddr: string read Fhttpaddr write Fhttpaddr;

//将变量输出到控件编辑器中,名称应该为HTTPADDR,前面加C是为了方便,

//它将直接排列在Caption的下面,方便修改。

2.调用浏览器访问INTERNET主页函数

function ShellExecute(hWnd: HWND; Operation

FileName

Parameters

Directory: PChar; ShowCmd: Integer): HINST; stdcall;

参数定义:

hWnd: 父窗口句柄

Operation: 操作模式 open 或 print

FileName: 文件名指针

Parameter: 传递给执行文件的参数

Directory: 缺省目录

ShowCmd: 程序启动后的状态:(1)SW_SHOWNORMAL 正常 (2)SW_MINIMIZE 最小 (3)SW_MAXIMIZE 最大

不考虑错误判断,打开一个WEB页面的例子:

ShellExecute(handle

'open'

'http://www.microsfto.com'

nil

nil

SW_SHOWNORMAL);

函数ShellExecute包含在单元ShellAPI中。为了处理各种情况,我们定义了一个过程。

public

procedure ExploreWeb(handle:HWND ; page:PChar);

具体代码使用Robert Vivrette先生编写的程序片段。

procedure Tweblabel.ExploreWeb(handle:HWND ; page:PChar);

var

Returnvalue : integer; //实际调用WEB页面

begin

ReturnValue := ShellExecute(handle

'open'

page

nil

nil

SW_SHOWNORMAL);

if ReturnValue <= 32 then

case Returnvalue of

0 :

MessageBox(handle

'错误:内存溢出!'

'WEB页面出错信息'

0);

ERROR_FILE_NOT_FOUND:

MessageBox(handle

'错误:文件未找到!'

'WEB页面出错信息'

0);

ERROR_PATH_NOT_FOUND:

MessageBox(handle

'错误:目录错误!'

'WEB页面出错信息'

0);

ERROR_BAD_FORMAT :

MessageBox(handle

'错误:EXE文件格式错误!'

'WEB页面出错信息'

0);

// All other errors . See help for more ReturnValues of ShellExecute

else

MessageBox(handle

PChar('错误信息[:'+IntToStr(Returnvalue)+']')

'WEB页面出错信息'

0)

end

end;

3.我们知道,必须重载Create函数才能加入我们的初始化代码。

public

{ Public declarations }

constructor Create(AOwner: TComponent); override;

实现部分:

constructor Tweblabel.Create(AOwner: TComponent);

begin

//调用父辈的CREATE

inherited Create(Aowner);

//以下是自己的初始化代码

//将光标设置为手型

Cursor:= crHandPoint;

//令标题=主页地址

chttpaddr:='http://www.nbip.net/michaeljia';

Caption:=chttpaddr;

//字体缺省大小为10

font.size:=10;

font.color:=clblue;   //字体缺省颜色为兰色

font.style:=[fsUnderline]; //字体缺省风格为下划线

end;

4.要想通过单击Tweblabel来启动浏览器,必须重载CLICK函数,代码如下。

protected

{ Protected declarations }

procedure click; override;

实现部分:

procedure Tweblabel.click;

begin

inherited Click; //调用父辈的Click函数

ExploreWeb(parent.handle

pchar(chttpaddr)); //调用WEB页面

end;

VB如何使键盘、Mouse失效(JournalPlayBack Hook) VB如何使用 DBGrid VB如何突破 TextBox 32K 的限制? VB如何为执行程序加上参数? VB如何压缩较长的全路径文件名中的路径 (Path) 字串长度? VB如何在VB中实现密码的读取 如何在VB中使用命令行参数 VB如何在内存中的指定位置取数据? VB如何在已经存在的文本的textbox添加新的一行 VB如何在資料庫中存入單引號? VB如何正确使用VB6访问Access2000数据库 VB如何自动记录计算机开机时间? VB如何做到当我们单击窗体的最小化和关闭按钮时,窗体先最小化到任务栏成为按钮,然后消失呢?金山词霸能 软件工程篇-Const与#Const的对比 -VB资料 软件工程篇-从Visual Data Manager开始 -VB资料 软件工程篇-理解错误处理代理 -VB资料 软件工程篇-清空集合内容的几种方法 -VB资料 软件工程篇-受限制的共享软件Shareware -VB资料 设定CapsLock ScrollLock NumLock-VB资料 设置计算机名称-VB资料 深入SERIPTING RUNTIME LIBRARY-VB资料 &#39;识别常数的简单四则运算-VB资料 实现平面工具栏 -VB资料 使程序不在 Ctrl+Alt+Del 弹出的对话框内-VB资料 VB使用 API 开始屏幕保护 VB使用rdoPreparedStatement实现参数化查询 使用Vb5制作Easter Egg 使用VB实现所见即所得功能 使用VB中的SERIPTING RUNTIME LIBRARY VB使用Win95的动画光标 VB使用Windows内建的图标 谁是高手?在线等待,立马给分! 发邮件问题 单挑高手:一个可变的字符串变量记录着类名(classname),怎么样根据这个符串的值创建所含信息的类实例?? 大放分!!!即放即給 一个在桌面上产生雪花的小程序,请帮忙修改。 请教一个程序速度的问题 辽宁沈阳的凯夫集团有知道情况的么? 好书是那本? 再请saucer(思归, MS .NET MVP),你帮忙得问题用你的方法解决了一半,还差一点。 关于界面控键问题! 为什么在设计时控件的属性不可以修改?在线等候 我的ROOT口令忘了,我该怎么办? 在RedHat8.0上安装Kylix3出现的问题?(关于文件包glibc检查出错)??????? VSS: Unable to check out the file <file> because it is already checked out. 一个暴难问题,关于两台电脑通过一个modem上网的问题。谢谢。 谁是高手,立马给分! 如何使ListControl 内容排序? 无法安装sql2000! 关于inport()和outport()的问题! 哪位仁兄手上有灰度图像的傅立叶变换和反变换的程序代码? 请教高手!死机问题 如何可以让网页内容置中显示,不管客户端的分辨率是多少? 大家注意Acrobat 5与BDE有冲突!! 怎样向客户端输出数据 如何判断一个变量是否定义过?使用if(var)的方法不行,报错 Interbase树形结构和递归调用问题,高手请进!!急!!!! 有谁知道哪有pb8.0汉化版出售。本人是个十足的英语盲! Oracle8 的blob字段,BDE读取报“Invalid Field Type”的错误 Interbase树形结构和递归调用问题,高手请进!!急!!!! 如何选出表中相同的纪录? 下面这些对编程风格的说法是否正确? Interbase树形结构和递归调用问题,高手请进!!急!!!! 请教dos中有没有类似notify的命令用于邮件通知 java有没有RTTI(runtime type information) 在DOS下开发软件,应该如何调用扩展内存? 高分求:Antechinus C# Editor4.2c和JavaScript Editor的注册码! 想自己做个字典软件,但是没有词库 怎样做个链接?链接邮件地址。 如何在工具栏statusbar的右下角(最后一个panel里)做一个走动的时钟 大家讨论一下开发JSP Web站点用什么工具比较好? 我想编一个网页管理软件,有如下要求。。。 大家帮看一下,加注释的一句是什么意思 高分求救!!有关数据同步!! 北京的程序员薪水如何(6000/月)? 大放分﹗﹗即放即給﹗﹗ 关于WinSock通信 我用怎样得到过滤后有多少条记录呢? 存储过程问题,还有些小麻烦,帮帮忙呀,谢谢:) 急~~!关于ChildView类的问问题~~!!请大家帮助。谢谢。 怎么用Container Managed Persistence EntityBean实现对数据库的增删改,最好用jsp调用 如何知道光驱是打开的还是关闭的??? 追梦的倔小孩 重庆学员张新“野路子”台湾综艺天后利菁被爆全身整容 曾整过中韩两国美女球迷大对比 性感与美貌强苏醒单方面宣布解约 粉丝与李炜粉丝掀专业歌手扎堆?那英:姚贝娜们也需要大东北“辣妈”常颖完美表现折服自己 现餐馆歌者张新嗓音雌雄难辨惊呆导师 汪第三期学员看点 单冲峰战胜脑瘤唱响第《中国好声音》两大天后家族 实力唱将谢娜怀孕照小腹微隆 原来是去美国生子学霸的爱情:“最开心的是和你一起站在新生婴儿出生时的25种表情 萌呆了好声音第三集剧透 学员抢先看广电总局调控歌唱选秀节目 好声音播出《好声音》赢了《快乐男声》 是胜在“杨千嬅爆残黑眼圈挂脸皮肤松弛似60岁宋茜现场秀厨艺 卖萌撒娇萌死人中国好声音学员挑战“禁忌” 导师们依好声音收视破4再压快男 何炅频吐槽暗熊黛林性感红唇妆高调亮相 老娘没有你吉克隽逸赴美会盟巨星 与Snoop 房祖名案今开庭 成龙叮嘱律师勿缩短刑四部门要求涉案资金应“急冻”将提高反林森浩投毒案二审仍死刑法院回应两大焦法国降半旗三天悼念遇害者 数十万人街日媒:印无法限制中国海军 印度洋和平“猎狐”超1/3归案者来自东南亚官方国际社会强烈谴责巴黎恐怖袭击事件(国美国调整15处欧洲军事基地 在英部署春风化雨润心田图文:今年首场主场外交 开启中拉整体86.25亿元 北京又飙新地王湖北日报讯 黄强湖北日报讯 熊衍东发改委38个项目向民企推介两官员违纪受调查实体书店复兴22分钟问政,官员未说一句抱歉罕见“镜像人”在汉成功补心净化政治生态才有健康心态湖北日报讯 ◆问题猪肉不能满足于“未建筑安全生产将定期公开考评结果
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘