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

在按钮中快速启动程序-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 通过

ASP.NET MVC3 如何将DataTable绑定到Html.DropDownList PHP调用COM组件 农行网上银行支付接口:无法读取商户端配置文件 农行网上银行支付接口:商户代理卖方挂单成交功能测试 Windows Phone 7 实现简单的GPS定位器 C#如何删除string中的Html标记 ImageStone图像处理C++类库 jQuery Mobile 开发入门手册--概述 jQuery Mobile 开发入门手册--技术理论 jQuery Mobile 开发入门手册--组件 SMTP/POP3收发邮件的C#类库SmtPop.Net 用C#编写的Telnet开源类库 Visual Studio C#创建Windows服务(Windows Service) C#取得Windows服务列表 C#编程自动安装Windows服务 C#安装/删除 .NET Windows服务 C#启动、停止、重启Windows服务 jQuery实现Ajax提交form表单的简单方法 字符串String与枚举Enum之间的转换[C#] Javascript统计DOM元素里文字的行数 C#从Web网站下载文件 C#得到区域名称列表 C#合并多个PrintDocument WpWidgetLibrary - Windows Phone的HTML部件库(Widgets) 让你不再害怕C语言指针 C语言概述-C语言教程 Turbo C 2.0集成开发环境的使用(上)-C语言教程 Turbo C 2.0集成开发环境的使用(下)-C语言教程 程序的灵魂—算法-C语言教程 数据类型、运算符与表达式(上)-C语言教程 数据类型、运算符与表达式(下)-C语言教程 请问谁能帮我把linux里网卡芯片w89c940的驱动源程序提取出来?? html页面上的透明传输 C# webform的简单问题,如何关闭窗口 新手上路,Jb8的小问题 100分求购 经常看到说ADO很好的帖子,但是还是有一些疑惑,望高手赐教 用VC编写NetDDE程序,怎样设定客户程序连接服务器时的密码? 怪问题,请大虾帮忙!!!! 请问要学习数据库系统设计应该看那些资料? 急:高分求助关于jdbc连接MySQL数据库的问题. 如何用javascript来检测机器上是否安装word2000?请给点代码提示,先谢谢了 在本地机器上测试邮件发送 使用treeview数据库绑定,能不能绑到一个子节点下? 关于给目录树的子菜单再增加下层菜单的问题 要访问mysql数据库中排列在最前面的5条数据,怎么班? 高分征求 SQL SERVER 数据库的冗余、负载均衡的解决方案? 无法从硬盘安装Redhat9,大家帮帮我 Delphi7中安装上自己编写的控件后出现的问题??? 求助 100分深情大奉送!! 请教各位高手帮忙是关于EOT的??? 到底怎么用存储过程?是不是在查询分析器中使用? 到底怎么用存储过程?是不是在查询分析器中使用? 串口问题!!! behavior:url(#default#userData)的问题!马上给分。 如何得到所有用户表的表名?(在线等候) 怎么让打开的EXCEL文档自动到某一工作表?? 如何分别取得字符串中空格前和空格后的数据呢?如‘dfds df fds'分为dfds df fds. 谁知道MSWord的文件格式? 怎样给自定义函数设置多个参数项? 在URL地址栏中传递字符串参数遇到的一个问题??? 如何在繁體下打開簡體文件名的文件?要求不能用改名的辦法 插入数据到数据库! 高手关注--------送分-----------急急急! 在ASP中如何编程建立索引服务的编录及目录? 在web server application把MEMO字段中带格式(RTF)的内容转换成纯文本? 请问在身份验证中,能否有两个login.aspx??? 急~那篇给vb控件打包文件添加数字签名以便浏览器浏览的那篇文章在哪里? 用vb如何实现模拟雷达界面??欢迎赐教! 如何用CSS控制INPUT的输入外观不是立体的,而看起来是平板的样子,只有一个边线? 用户注册的问题,密码总验证不对,能不能看看错在哪里? 如何使文本框只显示下面的边框? xsl求助~~~ 怎么将int转为CString 有的论坛采用从数据库得到帖子,有的使用shtml,有的使用xml,孰优???还有其他吗? 100分==在JSP中打开word文件的实例 紧急在线等一个很简单的问题 DTPicker 怎样和数据库绑定? 如何动态改变VB报表中Section中的一个与数据环境绑定的rptTextBox的颜色!(100分求教) datediff()这个函数怎么用哪位高手可否给小弟讲解一下急用在线等 和女友分手了,痛苦! 谁有支持中文的带身份验证和邮件群发的ASP.NET邮件组件? 最后一句话是“娇艳的玫瑰上,一闪一闪的,是晶莹的水滴.” 这篇文章的题目是'棉袄与玫瑰最后一句话是“娇艳的玫瑰上,一闪一闪的,是晶莹的水滴.” 这篇文章的题目是'棉袄与玫瑰 1.已知a-1/a=3,那么a^2+1/a^2=________.2.不改变分式的值,使分式的分子 分母中各项系数都为整数,0.2x-0.012/-x-0.05=_______3.已知关于x的方程x+m/m(x-1)=- 4/5的解为x=-1/5,则m=______4.若(x-3)^0-2(3x-6)^-2有意义,那么 适合考实验班的高中数学定理 tanα/2=m,则sinα= cosα= 怎样画出一个角的平分线 若sin2α=1/4,则|cosα-sin2α|的值是__________好的,我会看情况加分. 若a^2+a+1=0 求a^2+a^8+a^9+2009的值 怎样用角尺画出角的平分线? 有腊梅品质的人 数学小几何...证明题.. 如图,已知GD//HE,且∠1=∠2,试说明AF//BC 已知α为锐角,sin=五分之三,则tan(α-四分之派)等于 [ ] A.七分之一 B.-七分之一 C.7 D.-7 若sin2α>0且cosα<0.则α是? 要一篇《每天都是一首诗》的写作指导 小叶红檀和小叶紫檀哪个好 白鹅课文的写作特点 在直角三角形abc中,c=10,ab=3比4,a=?,b=? 城市面貌,人际关系,交通,社会治安按词性如何排序 仿写白鹅的作文 锐角α,β满足sinβ=mcos(α+β)sinα(m>0,α+β≠90°)令x=tanα,y=tanβ,(1)y=f(x)的表达式(2)当α∈[45°,90°)时,求函数f(x)的最大值 红檀和小叶紫檀的区别是什么? 白鹅这篇课文的简介 已知sinα=msinβ,ncosα=mcosβ,且α、β为锐角,求证cosα=根号下(m方-1)除以(n方-1) 腊梅品质成语.诗句 白鹅 课文中白鹅昂首大叫写的是白鹅的什么? 已知集合M={x|x方+根号下m乘x+1=0,若M∩R=空集,则M的取值范围是? 请详细解说,用高一知识解说.谢谢 液相色谱仪维修一般是返厂还是现场修 八年级生物题,我实在看不懂,帮忙看一下吧!谢谢啦!题目:某种雌雄异体的植物有宽叶和狭叶两种类型.宽叶由显性基因B控制,狭叶由隐性基因b控制,B和b均位于X染色体上.基因b使雄配子致死.请 若a b 为锐角.且tan a = 7分之1 sin b =10分之根号10 则a +2b 等于多少!急 如图,A,B,C都在⊙O上,∠1=∠B.求证:AE是⊙O的切线就是在⊙O中,一个三角形ABC,AB,BC,AC都为任意弦,然后AE直线紧贴⊙O,求AE为切线 如何用三角尺画出一个50°的角 正三棱台的上、下底面边长及高分别为1,2,2,则它的斜高是 ad,ae分别是 △abc的高和角平分线求角dae与角c-角b的关系,请证明 问一题高中生物遗传图解的题目D为什么是错的C怎么算谢谢了 作文;选自然科学、社会生活热点项内容作调查研究课题,写一份研究报告分数很高了,注意只能400~450字哦 已知如图,△ABC中,AD、AE分别是△ABC的高和角平分线,求证∠C-∠B=2∠DAE 小学四年级语文上册14课课文的段末说白鹅“可要大吃一惊”了,这是为什么? 小叶紫檀和血檀的区别 我国古代朝代大致有哪些 童年梦境的作文童年梦境的作文 600字 举例说明如何选择社会调查研究的课题 假如你想做一株腊梅(赵丽宏)假如你是作者的朋友,你是否想做一株腊梅 画出最大的圆 社会科学方法论课题选择求帮忙想一个研究课题吧 最好新颖一点,研究范围不要太广,主要题目形式为A和B的关系研究之类的. 英语从零学起,怎么入手呀.是先学音标,还是直接记单词呀.不过音标什么KK音标,DJ音标,IPA音标,都不知学哪个好. 童年梦境的作文! 怎么样用圆规画角平均线 假如你想做一张株腊梅 赵丽宏 对最后一句话的理解.此刻,北风正敲打着我的窗户,而我的那几株腊梅依然在那里默默绽放,默默地吐着清幽的芬芳 以“童年梦境”为题写一篇作文[初一]急!要求:1、充分发挥自己的想象 2、运用描写的表达方式3、字数在600字以上[好的可以追加分的,最好多一点,越快越好] 使用电子白板时,用圆规画角,可以直接显示度数嘛 自学从零学起到英语6级要多长时间?我不是在校生,每天大概有3个小时时间.要多长时间才可以达到英语6级,听力+口语 若|a|=2,|b|=1,则a-b的值是多少同上 作文:童年梦境 600字 急用 高数,求解不定积分 ∫√(1+x^2)dx 警犬都是出自哪里分什么种类,请详细说明,以及各种犬的介绍 如图,点C、D线段AB上,△PCD等边三角形,且△APP∽△PDB,求角APB的度数 已知a∈(π,3π/2),tana=2,则cosa= |a|=8,|b|二2,且|a一b|=b一a,求a和b的值. 某商场出售洗衣机上午出售总数的一半多20台下午售出剩下的一半少20台结果还剩105台该商场原来有多少台? 已知a属于(已知a属于(派,3派/2)tana=2,cosa=?求详细解答! 日“苍龙”级潜水艇黑龙号下水 剑锋直俄总理敦促乌克兰考虑“入欧”后果日本外务大臣明年春季将访俄就和平条约中国接任联合国安理会2013年11月浙江今日起实时发布县级市AQI指数 北京着手“一日游”综合整治方案 拟建奥巴马叫停国安局对国际货币基金组织与广西岑溪炮竹厂爆炸致7死19伤 事故卫计委:加强医院内部治安管理 保障诊外交部:“东伊运”是中国最直接最现实韩劳工诉日企再获胜 获赔2.3亿韩元到2017年德国医疗保险账户将亏空1黎巴嫩支持召开叙利亚问题第二次日内瓦黎巴嫩支持召开叙利亚问题第二次日内瓦杭州火车东站地裂女子被卡 建设方称系杭州10岁女童遭“淫魔”猥亵 家长怒广西岑溪炮竹厂爆炸 已致7死19伤海军三大舰队西太平洋演习落幕 今后将北京局地达严重污染程度 “蓝天”只能蒙古国高校新增汉语教学点叙问题联合特使称日内瓦会议有望于数周义昌大桥爆炸垮塌案一审开庭底盘装甲 做还是不做?那一场假离婚噩梦《我是机器人》运营“互联网+风控”助推“精品战略”小微企业好帮手方便快捷办理业务难忘的太行之旅举办新生军训会操表演今秋不跳槽 都不好意思自称白领观摩团走进福彩 见证公信水泥车避让老人致侧翻 压死旁车司机中国“刀锋战士”假肢脱落 单腿蹦到终基隆男子闯“空门”行窃 太累睡着遭警“茶祖神农杯”名优茶评选获金奖名单台湾花莲今天凌晨发生里氏5.6级地震江城子 茶博会第十二届湖北武汉台湾周21日启幕 《本期受访 专家简介江苏端出系列科普大餐直购电扩围,电网开放再进一步
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘