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

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

AVI文件格式-VB资料 DBF文件转为MDB文件的方法 -VB资料 FLIC动画文件的播放程序设计-VB资料 MS Office 开发工具VBA TextBox 中英文输入方法切换-VB资料 TXT文件的读取-VB资料 VB 如何将dbgrid印出来 VB5.0调用Office97技巧 VB5如何把帮助文件加到设计的程序内? VB编程步步高-打印篇(二) VB编程的好帮手资源文件 VB的OPEN对话框控件图示功能扩充 VB通用数据表格输出程序的设计 VB网格中输入数据 VB应用程序中打印条形码的两种方法 VB与Windows资源管理器互拷文件 VB中DOS文件名与长文件名的转换 VB中的Unicode 和 Ansi 格式 VB中如何实现文本查找功能 VB中自制文件搜索器 Windows 初始化文件的修改 -VB资料 Word 97与WPS97的完美结合 -VB资料 比较两个文件-VB资料 采用递归算法删除带有多级子目录的目录-VB资料 菜单项的动态装入 -VB资料 处理加了密码的MDB文件-VB资料 VB创建临时文件 从公共对话框控件中提取多个文件名称 -VB资料 从全路径名中提取文件名 -VB资料 打印MsChart之类的控件 -VB资料 谈谈在VB6.0中如何使用资源文件进行编程 我要用delphi作个学生管理系统,大家给点意见 有声卡,为何没有声音,具体操作如何?一定加分!!!! What a country ! 交流交流多线程程序的开发经验好吗? 谁有关于ejb方面的书或者资料推荐??一定给分 Women over 50 谁编个例程给我,这50分就是谁的了。题目不难,相信高手5分钟就能做完。 jdk1.3+jswdk1.0.1 的JAVAbeans .class文件要放哪啊????? God painted it 提问:猪真的很幸福吗?要求 wywq(幸福如猪) 回答。 哪位高手做过可视电话的? VB能不能实现“一个结构体类型的数组当参数传递 Forgotten Birthd Husbands Overheard Fine 有个在多线程中使用ADO的问题。请高手们帮忙。 Suede jacket 可能是installshield的Bug! 我想去北京找个工作,请大家帮帮忙,提供点信息! 装了“猫”为何还有630错误(电话线也接了)? excel 問題 各位:数据窗口有一检索变量,现在想retrieve出所有的记录,检索变量应该怎样赋值?谢谢! linux和windows是不是只能分别装在两个分区中 关于图像处理:如何使图像锐化与柔化? 帮帮我啦! 我在使用jdbc读取数据的时候,碰到了内存溢出的问题,怎么回事呀 哪里有餐饮系统的介绍?90不够的话,先欠着,多谢了! 在两个ASP程序之间怎么传递参数? ccl2000(不帅不酷的Goblin):其实你真的很酷很帅的。 大侠帮帮我啦(关于SQL语句的问题) 关于Vxd的编译问题 用VC编的程序,一运行就说“执行非法操作”,问题出在哪里?? SQL Server有病 一个关于api的简单问题 《易佳自定义报表》用后很失望 请教各位高手一个有关报表控件的问题? 小妹向大家请教!可不可以直接在本页的代码中改变该页面浏览时的属性? 家菲猫:惊悉你昨晚惨遭不幸,被窃大量钱物,今日一天无法和你联系上,估计手机和通信录已全部丢失,如果今晚无法来我处,明早8点以前请务必携猫 MM 赶到上海南站!!! MDI文档模板和应用程序调用问题请教,大侠请进! 一个c++问题???? 请问各位高手,sqlserver2k加密的存储过程是否能解密,看到它的实际的语句?可否能跟踪加密的存储过程? 我下载了一个formula one ,发现她的界面跟excel差不多,在pb中怎么用? 高分求XML 高级编程(足本)[01.pdf到10.pdf]!!!! 招聘汇编程序员 ie 中true dbgrid 的问题 急招聘汇编程序员 关于WINDONWS文件夹 WIN2000有关用户管理的问题 谁可以告诉我怎么调用已有的EXE文件。 有谁知道广州或南海的高级程序员考试的辅导点 如何把系统时间作为一个文件的保存名? 异丙醇 和 正丙醇 都能用来制造 丙烯 吗?制法相同?用硫酸的!制丙烯啊!!!! 溴水加入到直馏汽油这个会发生反应吗.发生反应是使溴水褪色么..还是说他们是萃取的关系... 常减压蒸馏产品质量调节 由丙烯转化为异丙醇 裂解和裂化哪个是深度裂化 加氢裂化工艺提供商 求2-丙醇制丙烯的方程式 环烷烃是不是饱和烃?如果是,为什么他有一个不饱和度? 加氢裂化过程主要发生哪几种化学反应? 由丙烯制甘油 链状烷烃叫烷烃?环状烷烃叫环烷烃? 松花蛋的制作过程中所发生的化学反应 由丙烯制备丙三醇.需要经过取代,加成,取代.三步.为什么第二步和第一步不能调换. 既然饱和烃就是烷烃,而环烷烃不是烷烃,为什么环烷烃是饱和烃? 溶解过程有发生化学反应吗? 丙炔与一分子溴化氢反应制2-溴丙烯为什么用HgBr2作催化剂 用丙烯为原料制配聚丙烯腈的化学方程式,选用必要的无机试剂 含有5个碳原子的烷烃,经催化裂化后生成的烷烃最多有几种 丙酮如何生成2-羧基丙烯 用丙烯为原料制配聚丙烯腈的化学方程式,可以选用必要的无机试剂 环烷烃是饱和烃吗 丙烯醛和丙酮在NaoH作用下生成什么 丙烯制备丙三醇的化学反应方程式 催化裂化反应为什么原料性质变重,反应温度上升 NaOH能与哪些官能团反应?rt,我一直搞不懂NaOH会和哪些官能团发生怎样的反应,快高考了, 丙烯、淀粉、醋酸钠、乙酸乙酯谁和水反应只生成一种物质 催化裂化分馏塔顶压控多少有什么决定 有机化学中哪些官能团和氢氧化钠反应哪些官能团和氢氧化钠反应,和钠反应,和碳酸钠反应,和碳酸氢钠反应? 苯丙烯和水反应生成什么 水溶液中R值是什么意思? 有机化学中,能与氢氧化钠溶液反应的官能团有哪些? 丙烯与水发生加成反应需要什么条件? Excel添加趋势线中的R平方值和截距分别是什么意思? 高中有机化学中,那些能和NaOH发生水解反应 丙烯与水反应 用R语言估计参数值 请帮忙解释下面这段R语言程序每句的含义,> N x1 x2 n pai for(i in 1:N){+ x1 苯和丙烯制苯酚和丙酮的化学方程式 丙烯和氧气反应方程式,它们会反应么、生成水和二氧化碳 已知定义在R上的奇函数f(x)满足f(x+2)=-f(x),求f(6)的值 有机化学系统命名 :CH3CH2C(CH3)2C(CH3)=CHCH2CH(CH3)CH3我命名的是:2,5,6,6-四甲基-4-辛烯 (不用考虑Z和E的情况) 书上的答案是3,3,5,7-四甲基-4-锌烯.请问我错在哪里了?我是按照最低序列取的 在保 下列物质的制取中,不能直接用乙烯作原料的是?聚乙烯 聚氯乙烯 二氯乙烷 溴乙烯 f(x)是定义在R上的奇函数,对任意∈R,总有f(x+3/2)=-f(x),则(-3/2)的值为多少 丙酮怎么合成(CH3)3CCOOH的? 制取下列物质时,不能用乙烯做原料的是 A.聚乙烯 B.聚氯乙烯 C.氯乙烷 D.1,2-二溴乙烷 对于碳二加氢脱炔过程,为什么把催化剂用于前加氢 如何给有机物 CH3CH2C(CH3)2C(CH3)(C2H5)H 正确命名呢? 制取下列物质时,不能用乙烯作原料的是 A.CH3CH2CL B.聚氯乙烯 C.聚乙烯 D.CH2Br-CH2Br答案是选B 为什么? 对于碳二加氢脱过程,为什么把催化剂不能用于前加氢 丙烯合成聚丙烯的反应方程式是这样写nCH3-CH2=CH2→—〔-CH2-CH2〕n—然后再ch2的下面加个甲基这样写对不对?nCH2=CHCH3→[ch2-ch]n|ch3但是也有这么写的?究竟哪个是对的 请问由于工作需要经常接触液化气,重芳烃,汽油,轻芳烃等化工原料,对身体有什么伤害?请问由于工作需要经常接触液化气,C4,石脑油,重芳烃,汽油,富气,干气,轻芳烃等化工原料,对身 什么叫加氢裂化? 丙烯加聚反应生成聚丙烯化学方程式是什么? 我骑摩托车 不加汽油 ,直接用轻芳烃代替 行么 “加氢裂化装置”如何翻译成英语 转化 异丙醇为什么消去反应后,丙烯与HCI加成,再与NaOH取代.而不与水直接加成 直流汽油中的芳香烃是什么样的?能使酸性高锰酸钾褪色吗,能使溴水褪色吗? 什么是催化裂化汽油求答案 怎样用丙烯制作正异丙醇?最好把过方程式写下! 请教一个汽油芳香烃的问题我想问一下,比如93#汽油和0#柴油相比,哪个芳香烃含量更低些,大概能低多少呢? 常减压蒸馏汽油、柴油与焦化汽油与柴油的区别
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn