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

在按钮中快速启动程序-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
在按钮中快速启动程序-Delphi资料

在使用Netscape的navigator时不知你有没有注意到:在它的状态栏有一组按钮,这使我们能很方便地打开另一个窗体,更有效地利用时间(要知道网上冲浪时间就是金钱啊!)。

接下来我要讲的是如何在我们的程序中加入此功能,我们可以用DELPHI很轻易地实现,在DELPHI中我们可以指定某个Twincontrol类(如Ttoolbar)的父级为另一个Twincontrol(这里是Tstatusbar),然后通过动态创建Ttoolbar就可以在Tstarbar上创建TToolbar了,并且为工具条(Toolbar)添加按钮及其事件,通过调用API中的winexec实现对Window的应用程序的调用。下面给出了详细的代码和注释给大家分享。

unit superbar;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs,ComCtrls;

type

TForm1 = class(TForm)

StatusBar1: TStatusBar;{为窗体添加一个状态栏}

procedure FormCreate(Sender: TObject);

private

{声明以下过程}

procedure createsuperbar(sender:Tobject;Imagelist:TImagelist);

{创建工具条}

procedure createbutton(toolbar:TToolbar;Const ButtonCaptions: array of String);

{创建工具条的按钮}

procedure superbuttonclick(sender:Tobject);

{为工具条按钮添加事件}

public

end;

var

Form1: TForm1;

toolbar:TToolbar;

implementation

uses shellapi,commctrl;{注意要加入此句,否则程序运行无法通过}

{$R *.DFM}

procedure TForm1.createsuperbar(sender:Tobject;Imagelist:Timagelist);

begin

toolbar:=TToolbar.Create(self);{动态创建一个工具条}

with toolbar do

begin

parent:=statusbar1;{定义toolbar的父类为状态栏,这样就可以创建出状态栏的工具条了}

top:=1;left:=1;height:=18;

buttonheight:=16;buttonwidth:=16;{定出toolbar和toolbutton的宽度长度};

flat:=true;autosize:=true; {设置toolbutton为浮动形式}

images:=imagelist;{设置toolbutton的图标}

{使工具条可以脱离状态栏.注意:如果你用的是DELPHI3.0需删除此两句,即可用}

dragkind:=dkdock;

dragmode:=dmautomatic;

end;

end;

procedure TForm1.createbutton(Toolbar:TToolbar;Const ButtonCaptions: array of String);

var

I,m: Integer;

begin

m:=0;

for I := 0 to High(ButtonCaptions) do

begin

with TToolButton.Create(ToolBar) do

begin

Parent := ToolBar;

Caption := ButtonCaptions[I];

onclick:=superbuttonclick;{为toolbutton增加鼠标click事件}

if (ButtonCaptions[I]=‘|’) then{判断是不是分隔符}

begin

Style := tbsSeparator;

m:=m+1;

end

else

begin

Style := tbsButton;

imageindex:=i-m;

end;

end;

end;

end;

{这里是响应鼠标事件,实现应用程序的打开}

procedure TForm1.superbuttonclick(sender:Tobject);

begin

winexec(pchar((sender as TToolbutton).caption),SW_ShowNormal);

{打开一个Windows的应用程序}

end;

procedure TForm1.FormCreate(Sender: TObject);

const

ExeList:array[0..2] of String=(

‘winfile.exe’,

‘|’,

‘notepad.exe’);{可以在这里加上其它应用程序的全称,也可以不要分隔符}

var

imagelist:Timagelist;

i:integer;

begin

imagelist:=Timagelist.Create(self);

try{加入安全代码,也可不加}

for i:=0 to high(exelist) do

if exelist[i] <> ‘|’ then

begin

ImageList_AddIcon(ImageList.Handle,ExtractIcon(Handle,PChar(ExeList[i]),0));

{为imagelist添加图标}

end;

createsuperbar(self,imagelist);

createbutton(toolbar,exelist);

finally

end;

end;

end.

以上程序已在Pentium-MMX166 32M Windows 98 DELPHI 4.0 通过

创造&#183;连接&#183;成就:UNITE 2015 BEIJING圆满落幕 IT互联网人才招聘市场特点:人少钱多疯狂抢? React Native并非原生 Instagram Apple Watch应用设计师:对原有App全部重新思考 腾讯网移动端H5页面设计实战分享 Kendo UI和AngularJS常见问题解析 Elevator.js:模拟电梯运行的“返回顶部”JS插件 Java,传奇的一生! 约吗?Java二十周年特别策划——寻找Java大牛! 走近英特尔软件技术王牌之师:系统技术和优化部门 新兴技术袭来,Web开发如何抉择? 新创社交平台Tsu 5周註冊用户破百万秘訣 Google Play:助力中国开发者的海外梦想 JPHP——一款基于JVM的新PHP编译器 舌尖上的CTO——小杨生煎的持续交付 《近匠》滴答清单,跨平台云同步的任务管理工具 DJI与优酷土豆战略合作:提升UGC价值,先内容再营销 Android性能优化典范(二) 从三大运营商联手 看电视游戏背后的现状 【工具推荐】Vert.x——非阻塞、高并发的编程开发框架 Google搜索在确定结果排名时会将网站的移动设备适用性作为考量因素 W3C首次发布SVG标记、SVG轮廓标准工作草案 第七届中国云计算大会 | 首批主会演讲嘉宾和议题公布(表) 安沃传媒创始人王旭东:开发者从移动广告获利的黄金时代已经来临 【舌尖上的CTO】砂锅馄饨的交付件 微软新Visual Studio Code开发工具支持Mac和Linux 科技新创公司想做大?从CNN记者跳槽Snapchat谈起 Java二十年特别奉献:晒博文、赢大奖! 《近匠》华为创新总监蔡绪鹏:智能手表的三大感知与未解难题 从Samurai-Native框架开发谈React Native Qualcomm公司李申:Vuforia打破AR设备界线 哪里有比较好的网上书店?(计算机类) 请看这句有什么问题 dll的路径常识,大家帮我回答一下 在Web Forms里用Windows Forms控件 大家想一想! 在校程序员的困惑 要把服務器放在家里.現有條件:ADSL,LINUX 7.3,國際域名一個.可以嗎?還要什麼設置?thx 怎样消除11001#socket错误? 如何得到文件的长度,很简单的问题 脚本错误? 物化视图的数据整理问题 如何实现把一个BMP等比例缩放. 强烈建议版主封掉 theHanOfCC(我流) 的ID,他是一个人渣!! 同意的请进来签名!!! 在校程序员的困惑 有关PB数据窗口的检索参数 哪里有比较多的计算机书籍下载,请推荐几个。 急~~~高分求救~! 谢谢duduwolf,请来领分 类似这样的字符串“Thu Sep 5 14:05:56 2002”,怎么转化为Date对象? 安装问题,很简单,小弟菜鸟,望各位兄长多多关照啦!谢了! MDI窗口出错 新手请教。如何在cgi程序中得到由url传递过来的值 ISA 2K发布多个WEB 服务器问题,(我都要疯了) 我的xp怎么不能装vc6.0?再线等待!(20分) 急~~~高分求救~! 请教各位师兄。这个可以实现吗? 向高手请教(如何把客户端的图片传到服务器?) 各位大虾.水晶报表的关键一步了.实现了我就可以水晶报表的打印了! 急急!!!!怎样才能取得java函数传过来的参数呢? %%%%非高手勿進%%% CSDN有些人素质太差! IShellFolder::GetDisplayNameOf 如何获得全名? 代理Type分别为transparent,anonymous,high anonymity,优劣? 为感谢computersim在大力相助,特奉送100分,快来拿啊 请教网上书店系统的设计思想和例子。 VC中使用FLASH的OCX控件如何取得Movie的原始大小,且如何按指定比例缩放?问题解决后必给分。 有关“隐藏”,“覆盖”的一些问题: 如何把A库中A表原样复制到B库中去? 怎样取得鼠标点击DataGrid控件时是哪一行,哪一列呢?(C#) ISA 2K发布多个WEB 服务器问题,(我都要疯了)高分求救 这个问题怎么办?? (ADO OPEN) Up 有分! 母亲生日,你觉得送什么礼物为好? 用c++ 写的 hello 程序在unix g++ 编译通过后,运行出错 如下几个初级问题要问,高手们请进-> SQLSERVER高手进来聊聊........ 怎样用代码实现两台电脑之间的文件传输? 哪位知道Microsoft Firewall Client 的下载地址? 关于RECORDset的问题,求教 如何在web页面使用 Windows 窗体控件,最好有例子! 使用DOM的XMLHttpRequest对象来发送xml请求,但当返回的响应带有中文时候,在PDA上无法正常显示,我使用MultiByteToWideChar也没用。有人 请问在窗口中放置控件时,PB是否有靠近格线对齐的功能。如果有,在哪设置? 心功能分几级,是如何分级的? 将0.1mol两种气态烃组成的混合气体完全燃烧后得3.36L(标准状况)CO2和3.6gH2O.下面说法正确的是?A.一定有烯烃B.一定有甲烷C.一定没有甲烷D.一定没有乙烷为什么?请写出完整的解题过程, 胰岛素是不是生物大分子生物老师说是含有51个氨基酸的胰岛素不算生物大分子.但刚刚做到的题干里说胰岛素是生物大分子 求正解 小石潭记中全石以为底,以什么意思 硝酸铵 是酸还是碱书上 问我 它是碱 还是盐。 压铸铝和不锈钢外表上看起来有什么区别,还有他的用途,. 卷石底以出 (<小石潭记>) 以 有没有便携式硬度计啊,谁知道有这样的吗 什么是不锈钢压铸 小石潭记写石,写树各有什么特点? 利比亚现在的形式怎么样 不锈钢的压铸工艺怎么样? 在古文中,"卷石底以出" 的 "以" 在O为-2价、C为+4价、H为+1价、Ga为+2价的前提下O、C、H、Ca可组成化合物的种类是:将所有答案写出来.Thanks! 阴起石是什么 请问如何调整生物钟?是这样的,放了一个月的暑假,生物钟比平时晚了很多,每天都是半夜1.2点才睡得着,要睡到白天12才醒.快要开学了,请问怎样调整过来啊?急!平常是晚上11:30左右睡觉,早上6 N Ca O可以组成什么化合物? 阴经大小对女人来说有什么意义 怎么调整生物钟工作原因 长达一年的时候都是晚上4点多只有睡 中午12点才起现在换了份工作 每天早上需要8点起 可是晚上基本都是2点才能正常入睡 第2天起来精神不佳 请问怎么样才可以调 帮我列一下中国历史上的朝代从[夏] [商] [西周]开始 一直到[明] [清] 梦见女人的阴部代表什么意思? 怎样快速的调整生物钟? 传统陶瓷的主要成分是什么类物质? 石涧记阅读答案 土山之阴,解释阴的意思. 纤维素、固醇、酶、DNA共有的元素是?A:C/H/O/N/PB:C/H/O/NC:C/H/OD:O/H 挖掘机大臂焊接挖掘机大臂有开裂怎么办?不能焊又在哪里能买到高质量价格合适的大臂呢 为什么叶绿素的提取要用石英砂和碳酸钙 快速调整生物钟的办法 挖掘机中臂油缸有裂缝漏油给可以用电焊焊起来?挖机是神钢140 脱氧核糖核酸、淀粉是生物大分子吗?生物大分子有哪些?拜托各位大神 纤维素、酶、RNA、ATP 哪个不含氮元素谢谢了, “他山之玉,可以攻石”含义 细胞中含氮元素的生物大分子是胰岛素和DNA为什么 怎么样调整生物钟暑假整个生物钟都乱了.晚上要12点多才睡得着.早上最早也九点多醒.我有试过早早醒,可到晚上还是睡不着.实在是太郁闷了,要怎么调整哦? “它山之玉,可以攻石. 中国历史的朝代更替示意图 什么石才是玉石 利比亚现在情况如何 There ( ) an NBA basketball game in two minutes.A.will be B.is going to be为什么不选A?急,说明理由 1岁小孩锰元素高怎么回事 玉石鉴定证书中原石是什么意思 their team is going to have a game__________our team 中国历史上为什么总会有朝代更替?中国历史上为什么总会有朝代更替,并且总有一些人在朝代更替后希望恢复原来的朝代? 什么石才能称玉石 希望答案能概念一点 求 一氧化氮中氮元素的化合价 小孩锰偏高怎么办?患者信息:女 3岁 广东 惠州 病情描述(发病时间、主要症状等):锰偏高.想得到怎样的帮助:锰偏高怎么办?曾经治疗情况及是否有过敏、遗传病史:无 在坚定还原糖和蛋白质的实验中,制备生物组织样液时,都要加如石英砂进行研磨,加入石英砂的目的是A.研磨充分 B.防止有机物受到破坏 C.提取有机物 D.有利于研磨液的过滤 已知一氧化氮气体与二氧化氮气体含有相同质量的氮元素,则这两种气体的质量之比是多少? 锰元素多少超标 H.O.S.Ca四种元素中那怎么组成盐 无机盐分哪些种类?这些种类的作用分别是什么? cuo与cu 如何分离如何分离CUO与CU 要操作 试剂 和化学方程式除杂 KNO3中 有BA(NO3)2 怎么办? Ca H O Cl四种元素组成一种含三种元素的盐请写出一种 分钟线的种类与作用分别是什么?本人只想具体的了解一些技术,与具体股票无关,只想单纯满足下求知欲,不懂者请不要发言,否则举报!诚意求教!可以简单介绍下, Cu(I)的化合物一般呈无色或白色,为什么? 罗马《十二铜表法》和公民法是什么关系? 制冷压缩机的作用是什么,如何分类 高中烃中H质量分数计算 为什么不锈钢不适合压铸
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘