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

Delphi 5快速创建控制面板程序

HTML文档下载 WORD文档下载 PDF文档下载
Delphi 5快速创建控制面板程序

---- Borland Delphi是深受广大软件开发人员喜爱的一种高效、快速的RAD(Rapid Application Development)开发工具。在1999年秋季发布的Delphi 5中,Delphi又引入了许多新的特色。其中之一便是Delphi 5的Enterprise和Professional版本中新增了用于快速创建控制面板(CPL)程序的向导和类,这使得我们能够在可视化开发环境中非常方便地建立控制面板应用程序。

---- 一、关于控制面板程序

---- 在Windows中,用户通过控制面板来进行增删程序、添加硬件、设置各种系统属性等操作。控制面板中所显示的小程序(或称之为对话框)是由控制面板程序(Control Panel Application)提供的。Windows本身附带了十来个控制面板应用程序,它们都位于Windows的System目录下,扩展名为*.CPL。每个控制面板中的应用程序可以有一个或多个对话框,每个对话框在控制面板中用一个图标代表。

---- 控制面板应用程序实质上是一类特殊的动态链接库,每个控制面板程序必须输出一个CPlApplet函数,它是控制面板应用程序的入口,其主要作用是处理Windows消息。CPlApplet函数的原型为:

function CPlApplet(

hwndCPl: THandle; //Identifies the main

window of the controlling application.

uMsg: DWORD; // Specifies the message

being sent to the Control Panel application

lParam1

lParam2: Longint // Specify

additional message-specific information

): Longint; stdcall;

---- CplApplet函数是控制面板与控制面板应用程序通讯的唯一方式。一个控制面板程序中的CplApplet函数的基本框架结构如下:

function CPlApplet(hwndCPl: THandle; uMsg: DWORD;

lParam1

lParam2: Longint): Longint;

begin

//…

case (uMsg) of

CPL_INIT: begin {…} end;

CPL_GETCOUNT: begin {…} end;

CPL_INQUIRE: begin {…} end;

CPL_NEWINQUIRE: begin {…} end;

CPL_DBLCLK: begin {…} end;

CPL_STOP: begin {…} end;

CPL_EXIT: begin {…} end;

CPL_STARTWPARMS: begin {…} end;

CPL_SETUP: begin {…} end;

end;

//函数的返回值取决于uMsg

end;

---- 事实上,编写控制面板程序的主要任务都放在处理这些CPL_消息上,关于这些消息的含义,请参看Delphi 5所带的帮助文档Win32.hlp。

---- 为了简化控制面板程序的创建,Delphi 5新增了一个可视化构件库CtlPanel.PAS。CtlPanel单元中定义了TAppletApplication(控制面板应用程序类)和TAppletModule类.

---- 使用TAppletApplication和TAppletModule类构造控制面板应用程序是一件非常轻松的事情。下面我来介绍一下在Delphi 5中创建控制面板程序的基本步骤。

---- 二、Delphi 5中建立控制面板程序

---- 第一步:选择File | New菜单,在New Items对话框的New页上选择Control Panel Application,Delphi将创建一个新的控制面板应用程序(其中已经包含一个applet)。Delphi向导创建的工程文件如下:

library Project1;

uses

CtlPanel

Unit1 in 'Unit1.pas'

{AppletModule1: TAppletModule};

exports CPlApplet;

{$R *.RES}

{$E cpl}

begin

Application.Initialize;

Application.CreateForm

(TAppletModule1

AppletModule1);

Application.Run;

end.

---- 在上面的DPR文件中,Application对象的类型是TAppletApplication,而不是TApplication,它是在CtlPanel单元中申明的。而且CplApplet函数也已经由CtlPanel单元定义好了。

---- 第二步:更改AppletModule的属性

---- 一个AppletModule对象代表一个对话框(即applet),一个CPL应用程序可以包含多个对话框。你可以通过Delphi向导来增添多个AppletModule。

---- AppletIcon属性:指定一个图标,此图标将出现在控制面板中。

---- Caption属性:显示在图标下面的文字。

---- Help属性:出现在控制面板窗口的状态栏上的文字。

---- ResidIcon属性:图标资源id,此属性与AppletIcon属性互斥。

---- ResidName属性:字符串资源id,此属性与Caption属性互斥。

---- ResidInfo属性:字符串资源id,此属性与Help属性互斥。

---- 第三步:编写事件句柄

---- 在控制面板中,当鼠标双击对话框的图标时,相应的AppletModule对象会产生OnActivate事件。为了响应鼠标的双击,你需要为TAppletModule的OnActivate事件属性提供一个事件句柄。

procedure TAppletModule1.

AppletModuleActivate(Sender:

TObject; Data: Integer);

begin

MessageBox(Application.ControlPanelHandle

'Delphi 5 is so great!'

'CPL Demo'

MB_ICONINFORMATION);

end;

---- 第四步:CPL的安装

---- 由于动态连接库工程文件中有一个{$E cpl}编译指示字,编译此DPR文件将产生一个扩展名为.CPL的文件,它就是我们所要的控制面板应用程序模块。控制面板程序的安装十分简单,只要将CPL文件拷贝到Windows的System目录(或者Windows NT的System32目录)下即可。当你再次打开控制面板时,你所编写的控制面板应用程序就会出现。

使VB的网格控件具有输入功能 VB如何使用未安装的字体? VB如何由两个ASC码(区位码)复原成一个汉字? VB如何转换C代码中的高字和低字 一些字符串操作的问题和回答 -VB资料 VB怎样把VC++代码转换成VB代码 字符串中包含双引号-VB资料 字符串中文的问题 -VB资料 巧用CLIPBOARD建立图像数据库-VB资料 在VB中存取数据库中的图片 Access97的报表解决方案-VB资料 Access下如何使用通用对话框-VB资料 ADO简介 -VB资料 ADO三大对象的属性、方法、事件及常数(二)-VB资料 ADO三大对象的属性、方法、事件及常数(三)-VB资料 ADO三大对象的属性、方法、事件及常数(一)-VB资料 Data 控件使用有密码的 Access 数据库 -VB资料 Excel、Access、VB的结合应用 Microsoft SQL Server 7.0安装问题(二)-VB资料 主题: MDB文件的导出 使用 DAO-VB资料 Microsoft Access秘密、技巧和陷阱-VB资料 SQL的基本操作(1.数据类型) -VB资料 SQL的基本操作(2.数据库的相关操作)-VB资料 SQL的基本操作(3.表的相关操作) -VB资料 SQL的基本操作(4.数据的检索)-VB资料 SQL在VB中的使用及访问远程数据库 Text 转换为 Access MDB -VB资料 VB5.0数据库基础 非编程方式访问数据库-VB资料 VB用编程方式访问数据库 VB 5.0数据库设计技术讲座(4) 启动2k时事件管理器中总有4个错误 高分求教 为什么提问前不自己查查以前的帖子 如何插入如下的结果集??? 如何吧一个xml文件写入byte[]流,然后再读出来写入另一个xml文件 关于ADO的问题。。很麻烦 救急 一个问题 谁有VB编的管理系统?能发个给我吗?? 如何解决VC++编译器的代码转换问题! 谁申请过电子信息技术应用贴息贷款? LDAP问题请指教,在线等待各位高手 有关DATAGRID中的DROPDOWNLIST问题 哈哈,两条三角裤啦!散分! adsl和windows2000 sever的问题 如何获得系统目录下的system路径? 请教一个双机间网卡互连的问题。 如何将 页面的条件转移 和 动态参数传递 结合起来? ftp传送文件 请教一个双机间网卡互连的问题 我在vs.net中使用cdo组件发信,编译出来的程序在没有安装vs.net的机器上报错(装了.net framework) 接着昨天的问题,Process.GetProcess()里的marchinename可以添别人的机器名。 写字板的颜色组合框是怎么做的? 错误代码:80020009??? 十万火急!谁知道怎么看sql都执行了哪些操作! 一个小问题? 哪有mandrake完整版下载? 他今天落荒而逃了!非常兴奋!!散分!!! 各位大虾帮忙,一个很菜的问题 请问如何在388手机上显示超过一屏幕的文本? 用vb6.0做的ftp下载的客户端程序 请问有为SUNPLUS16位机(MIUnSP™)开发平台的高手吗? 几经努力,没有经果.......(#if)真的很难吗? 涨分好机会,我有大问题:用什么方法可以实现——联接 电话网络(有线、无线)与电脑服务器,实现消息即时通信 欢迎多一些高手朋友提供 JAVA开发中的B/S方式,C/S方式到底是什么? 关于delphi中的查找赋值 >>>>>>关于new,delete 的简单问题《〈〈〈〈? 全国各地接吻比赛(想学习经验、姿势的进来) 数据挖掘关联规则算法的原代码能在哪里找到,譬如apriori算法? 请问16个主要颜色的RGB值。 使用过存储过程的大家帮忙呀。。。。。 websphere怎么啦? 救急:query回写 想学C#,有啥好书?? 如何动态地获得一个组件的属性、方法并调用? 请帮我看看这个小的asp程序为什么不能被网页调用?IE说这个网页不能显示 失业,散分!!! c++ builder 如何引用access数据据库的图片字段(ole对象),我用TDBimage控件不能看 CSS滤镜的使用!! 共同关注 失业了,散分!!! 大家有没有看网络小说啊!能提供几个经典些给小弟参考参考么? 下列地理事务出现在黄河.a酥油茶吊脚楼蒙古包四合院b碉房拉面马头窑洞c蒙古包坎儿井窑洞京剧 先成者饮酒的先成者是什么意思楚有祠者,赐其舍人卮酒.舍人相谓曰:“数人饮之不足,一人饮之有余.请画地为蛇,先成者饮酒.” 一人蛇先成,引酒且饮之,乃左手持卮,右手画蛇曰:“吾能为之 关于“雷锋精神永不磨灭”征文比赛.“雷锋精神永不磨灭”征文比赛.(1)目的:引导学生理解雷锋精神的深厚意蕴和时代内涵,学习雷锋和身边榜样人物先进事迹,践行雷锋精神,把热爱党、 高层楼房和四合院 蒙古包 竹楼有什么区别要求;用——画出每组中不同于其他三项的一项,并写出理由.1.苗族 汉族 藏族 维吾尔2.清明节 劳动节 端午节 重阳节3.工人 农民 老人 律师4.四合院 求常用逻辑推理的方法就要那种解题的方法,要附上例题,讲解要清楚一些.我要现实点的,不要仅仅依靠理论,要与实际相结合. 长期用手接触乙醇工业酒精对手有什么危害 一道高一宇宙航行物理一物体在某星球表面时受到的吸引力是在地球表面所受吸引力的n倍,该星球的半径是地球的m倍,若该星球和地球的质量分布是均匀的,则该星球的密度是地球密度的( ) 电视的电磁波是多少 中医讲的阴常不足肝常有余是什么意思 几道关于高一物理人造卫星和宇宙的题(选择哦)地球的同步卫星质量为m,离地面的高度为h,若地球半径为R,地球表面出的重力加速度为g,地球自转的角速度为ω,则同步卫星所受地球对她万有 电视机能不能发射电磁波 “雷锋精神永驻”征文400~500字 关于人造卫星变轨!知道轨道半径越大,速度越小那些但是从椭圆轨道变到大圆轨道这些就不懂了.为什么是向后喷射啊?这不是加速咩?加速轨道半径就缩小了呀?怎么会变到大圆轨道? 手机电磁波对电视有没有影响? 作文500字:雷锋精神永远长存“如果你是一滴水,你是否滋润了一寸土地?如果你是一线阳光,你是否照亮了一分黑暗?如果你是一颗粮食,你是否哺育了有用的生命?如果你是一颗最小的螺丝钉,你 人大声说话的声音是多少分贝?如果在室几十个室都大声说话有多少分贝?会损害听神经吗?人大声说话的声音是多少分贝?如果在室几十个人都大声说话有多少分贝?会损害听神经吗? 野蘑菇和什么不能一起吃 水果批发商涨价多少某水果批发商经销一种水果,如果每千克盈利10元,每天可出售500公斤,经市场调查,在进货价不变的情况下,若每公斤涨价1元,日销售量就减少20公斤,该商人想保证每天盈利6000 人说话的声音平均是多少分贝? 现在空间的电磁波很多,电视的,手机,卫星的等等,这会不会对人产生危害?多强的电磁波,什么频段的电磁波是安全的?电磁波会对人体有什么危害? 测量声波波长在“共鸣管测声速”中的测声波波长.要听得懂,我是初2的,最好是老师或懂这个的,不要复制别的网站的.要自己说,不能满足就不要答吧. 急急急急,为什么合外力与速度方向垂直速度大小不变那如果用因为合外力在速度方向上的分速度为0,所以只会改变方向来解释,那现在一个物体受到两个互相垂直的力最后的合力大小不就还是 在一次国际城市运动会中,要求运动员从高为H的平台上A点由静止出发,沿着动摩擦因数为的滑道向下运动到B点 如何用乙醇制丁醇 为了帮助滑雪者登上长200m,高40m的山坡,滑雪场沿山坡铺设了一条直雪道把一位重600N的滑雪者沿此雪道由坡地匀速拉直坡顶需用拉力150N(1)拉力对滑雪者做的功(2)雪道斜面的机械效率 不要中医什么的 甄嬛怎么知道正大光明匾后面有诏书 有什么例子可以说明,如果合外力方向跟物体的速度方向垂直,物体的速度大小不变,方向改变 请问这是勉强症吗?想词语的解释遇到解释不出来的词语时会多次想这个词语的解释,知道正确的解释后就不想了,这是勉强症吗?是轻度的?我是明白是什么意思了就不想了.这可以调节的吧?我觉 初中说惯性决不能叫力,但高中却有惯性力解释原因 四合院,屋顶也是平的的平房,窑洞,竹楼有什么功能?还有:冰屋,蒙古包,江南的房子,石板屋的功能.还有:冰屋,蒙古包,江南的房子,石板屋形成的原因. 中医词语增志是什么意思我看到一种中药,里面说它的功效有增志的效果, 请教zn+h2o+o2的氧化还原反应的化学方程式 滑雪者从A点由静止沿斜面滑下,经一平台后水平飞离B点,地面上紧靠平台有一个水平台阶.如图所示,各接触面动摩擦因数为u,滑雪者从斜面底端到平台速度大小不变(1)滑雪者离开B点的速度. 喝吹吃都有什么?意思都和什么有关 下列粒子Zn、Cl-、H+、O2,在反应中能得到电子的是( ),表现出( )性,是( )剂,具有还原性的微粒是他们在反应中发生的是 (填 ‘得’ 或‘ 失’)电子的 (填‘ 氧化’ 或 ‘还原’)反应 塔克拉玛干沙漠的介绍不要太长, 公务员常识题,请问都错在哪里了?.精卫填海∶《山海经》  A.刻舟求剑∶《吕氏春秋》B.四面楚歌∶《汉书》  C.学而不套∶《孟子》D.黄粱一梦∶《礼记》 甄嬛传服饰描写场景描写 如图所示如图所示,高为h=1.25m的平台上,覆盖一层薄冰,现有一质量为60kg的滑雪爱好者,以一定的初速度v向平台边缘滑去,着地时的速度方向与水平地面的夹角为45°(取重力加速度g=10m/s2)求: 公务员试题里经济常识一道题~关于一个国家货币的贬值或升值,下列表述错误的是:() A本国货币贬值有利于本国外汇的增收节支B本国货币贬值有利于本国出口C本国货币升值有利于本国 求《甄嬛传》里的服装描写句子. 17.如图所示,连同装备总重力为G的滑雪爱好者从滑雪坡道上由静止开始沿坡道ABC向下滑行,滑到B点时滑雪者通过改变滑雪板角度的方式来增大摩擦力的大小,使其到底端C点速度刚好减为零.已知 上海公务员的常识题多少分一道?我对上海的常识判断无语了,又怪又难不说,还是不定向选择,单选的选成多选,多选的选成单选,选成多选又多选少选了...对这部分绝望了.这边的分值如何, 对不文明现象的建议,一百字 塔克拉玛干沙漠里有什么生物?塔克拉玛干沙漠里有沙枣之类的植物吗?有哪种蛇、哪种狐狸、哪种蜥蜴?总之塔克拉玛干沙漠里有哪些生物是危险的,哪些生物是可食的? "你喝可乐那我喝什么"是什么意思啊? 小说甄嬛传描写华妃死时句子有哪些? 请教滑雪爱好者,几个关于滑雪的问题我每次去乔波室内滑雪场,都是滑4个小时,总感觉每次滑到最后的时候就很有感觉了,我说的感觉就是对身体的控制力和那种在雪地随意穿梭的感觉.是不是 为什么宇宙中有固体 也不能传声我重新问问题 :在宇宙的任意一星上 如果用钢铁敲击表面 另一人用耳贴近星球表面 就不用空气传播 也可听声 就算是声音在20赫兹以下 人耳听不到 但为什 告别不文明行为,从我做起 的承诺书 100字 同源染色体总是成对存在于生物细胞中”是对还是错?why?但为什么啊? 请问生殖器疱疹是什么病生殖器上偶有水疱,长出时很痒,经常不要而愈 《甄嬛传》里对皇上外貌是怎么描写的?看了演员,我真的很想TO.我想知道原文中对皇上的外貌描写是怎样的?看过的人能不能给我截一段? 细胞既有同源染色体,又有染色单体的时期是有丝分裂间期还是减数第一次分裂后期 生殖器疱疹是什么病啊? 雷锋精神永不磨灭的征文哪位大哥帮忙写一个啊、网上找的都没用啊、跟人家写一样没有意思、高手帮忙写一篇谢谢、多少悬赏可以改.1000字或600字都行、、、谢谢谢谢 一下细胞中可能同时存在同源染色体和染色单体的是初级精母细胞 2 精原细胞 3 初级卵母细胞 4 第一极体 (不用解释) 5 效应B细胞 6神经细胞 7 根尖分生区细胞 A 137 B12 生殖器疱疹是什么病呢? 雷锋精神永不磨灭的作文不超2000字 嘉兴国际名品城工地脚手架坍塌 工人1当代女画家王玮百幅弥勒造像回乡展在浙日本一老妇睡梦中手脚被绑 300万日俄罗斯兴起“护花行动”保护夜行年轻女新加坡人热衷万圣节 妖魔服装道具销量摩纳哥亲王携王妃出席格蕾丝王妃纪念展世界最高男子结婚 夫妻身高相差76厘欧洲一航空公司推“慈善空姐日历” 泳刚果(金)军队重夺反政府武装“M23美一名侏儒少女天生患有储物癖 家中如新加坡“美丽星期天”活动现缤纷花海(美研究称因感到受尊敬50岁以上人群更调查显示日本半数国民反对《特定秘密保日本新一代消防车设计图出炉 神似机动IPCC中国宣讲会:21世纪末全球气安倍视察台风受灾地伊豆大岛 称将加强日本首相出访土耳其 欲游说其勿购中国日本首相出访土耳其 欲游说其勿购中国日本拟上调育儿休假补贴发放比例 增加澳洲85岁志愿者因慈善工作获得“默多美国一男子为取啤酒冒险重返失火房屋险沿街旧楼房 瓷砖频脱落□时尚动态人造彩虹米内罗留不住小罗38岁梁咏琪停工养胎贵安水世界试客活动火爆举行湖人新帅靠防守起家慈世平来四川试训上百油漆桶 被弃河道旁小区旁排水口 夜间流臭水今晚超级大乐透彩池将达9.5亿市区仓后路 改为单行道赢不了老婆 留不住快船科威特一客机紧急迫降机长最后一句话:“不行!不行!”融信集团“白鹭同行爱心助孤”活动成功七夕档俊男美女演绎都市爱情新阵地不满违停被开罚单 男子持木棍跟民警理楼盘“成本价”跑量 楼市抄底最低84烧烤吃一半 老鼠竟从天降
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘