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

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

VB如何启动拨号网路中的连线? VB如何使用MSCOMM32.OCX发送大于80H的字符,可否给个示例程序? VB如何用VB打开默认浏览器或默认发信程序? VB如何用Visual Basic编写小型的网络系统 VB如何在程序中启动 NT 的【拨号连接】对话框? VB如何在网页上使用 VB5 制作的 ActiveX 控件? VB如何中断【拨号网络连接】? 设计Browser及FTP程序 -VB资料 设计Chat程序 -VB资料 设计E-mail程序 -VB资料 使用VB获得一页的HTML代码 使用VB收发电子邮件 VB使用超链接和发送Email VB使用浏览器的文件复制对话框 输入/输出篇 -VB资料 通过WnetEnumResource函数获得网络资源 -VB资料 通往 Internet 的捷径-VB资料 显示计算机的名称 -VB资料 VB用 MAPI 控件实现发送邮件 VB用 WinSock 控件下载文件 VB用 Winsock 实现聊天的程序 VB用Internet Transfer编写FTP程序 VB用Sockets发送电子邮件 用VB 创建自己的通信程序 用VB5.0开发通信软件的技巧 用VB5开发IE 用VB编写网络寻呼 用VB编写小型的网络系统 用VB创建自己的通信程序 用VB构建Internet的应用 用VB开发标准CGI程序 师傅不在QQ,在这里吗?有个问题.//小新的徒弟. 老千,上次的那个rose下载网站,你还记得吗?偶忘了,搜索了几遍野没找到//牛虻 在VisData中正常通过但在程序中不能通过,为什么 向各位高手请教两句:tab_1.post selecttab(3) 的作用是不是向tab发送消息,消息内容是selecttab(3)?yield()是不是从消息中查找是否有相同消息,如果有则将它拿出执行? 我很莱,谁能给我简单的解释一下线程是什么?脱壳是什么? 图象资料,轻而易举30分! 和大家交流一下泛型化编程 文件拷贝的简单问题, 大家好:请问:access的mdb数据库如何编程知道里面含有那几个表? 怎样将mysql驱动加到jbuilder中,让Database pilot能认得出,高分相送 高分求教:关于ADO实现数据库!!!!!!!!!!谢谢 请问如何一次删除数据库中的所有数据? 怎么使label框透明!帮帮我! TNMUDP问题:怎样才能知道RemoteHost连接失败??? 谁有CuteFTP Pro2.0注册码?谢谢 如何进行DropDownList绑定,谢谢! 请问一个CString的问题 那个168查分台太可恶了 WIN98与WIN2000共享一个OFFICE??? 网络连接怎么检测 能把IE浏览器最大吗?俺指的是把右上最大按钮最大化? 怎么判断表单传送的整数中不能有字符,谢谢!!! 如何把我写好的说明书放到我VC++应用程序的帮助文件中? 求最容易理解,最容易上手的数据库书籍,各位老大请指教,谢谢!! 快!快快!!来拿分呀!!!!!!!!一个简单问题。 WIN98与WIN2000共享一个OFFICE 2000??? 在Servlet中如何使用JavaBean(调用其中的方法)?主要是格式!如果网上有这方面的资料也可以告诉我,我急用,不胜感激!40分送上!(只有这些了) 请问各位:怎样才能知道某一个进程所占用的cpu比例,mem大小? 请问在恢复sql 7.0一个数据库文件时,出现Error 3624:这是什么意思?? 关于程序员考试 哪位知道怎么一行一行地读取文本文件呀!!!! 谁知道的,来帮我一下——有关网页浏览计时的问题 如何将数字变为字符串格式化输出? Websphere下使用连接池的一些问题 TNMUDP问题:怎样才能知道RemoteHost连接失败 ? 算法请教,我要调整一副黑白数字图的浓度,我是用直方图的方法好呢,还是先转成HLS在转回来好?若都不对,应该怎么做? 如何 在ASP中用ping 一个小问题 请用javascript VC++6是98年才出来的,为什么没有最新的ADO原生驱动,而通过ODBC的话速度太慢; 多媒体 谁有MPEG-4的资料! 如何实现类似资源管理器的分隔条 我是菜鸟,请教各位GG,MM?????? 我的计算字段怎么老要计算,而且经常有死循环,到底该注意些什么,在哪里控制? 如何取消鼠标右键菜单和使shift功能键无效?(紧急) 一个非常非常简单的一个问题 如何安装Jbuilder 5.0 ? 多媒体技术 chr(176)有什么用? 如何将3DMAX图片在vb窗口中显示 各位大侠,怎样取得复合数据窗口里面的嵌套表的Label名。 在一段双轨铁道上,相向而行,A全长180m,B全长160m,两列火车错车时间为1.7秒,A比B每秒快5米,A和B的速度是多少? 克服摩擦力做的功指的是总动力做的功吗,还是只是摩擦力做功的相反数 传送带上的克服摩擦力做功怎么算?是摩擦力乘以A物块与传送带的相对位移还是B物块的位移还是C传送带的位移?传送带与物块初速度是相反的 在一段两轨铁路上,两列火车相向驶过,若A列火车全长180m,B列火车全长160m,两列火车的错车时间为4秒,己知A列车的速度比B列车每秒快5m,则A、B两车的速度分别为多少? 电热水壶怎样烧水 为什么自行车的主动轮和从动轮的摩擦力分别作为动力和阻力?这和滚动摩擦还有滑动摩擦有关系吗?如果有的话滚动摩擦和滑动摩擦又分别是什么呢? 煤气灶火特小怎么回事我是新换的煤气,做饭的时候火特小,没换之前两个都能打火,虽然也不是很大,可最起码能用,现在是特别的小,是怎么回事 一列慢车从某站出发,每小时行48km,过了一段时间,一列快车从相同站出发与慢车同向而行每小时行72km,又经过1.5小时追上慢车,快车开出前,慢车已经行了多长时间? 关于驱动轮和从动轮所受摩擦力的方向的问题.为什么俩个轮所受摩擦力的方向会不同? 摩擦力一定是阻力, 甲乙两站的路成为360km,一列慢车从甲站开出,每小时行驶48km,一列快车从乙站开出,每小时72km,快车快车先开25分钟,俩车相向而行,慢车行驶了多少时间相遇? 摩擦力 皮带主动轮 从动轮是皮带带动轮转,还是轮带动皮带转?哪个先转?怎样判断主动轮,从动轮,或皮带上一点的摩擦力的方向?还有,比如,C、D分别是两轮边缘与皮带接触的点,那C,D到底在皮带 动摩擦力一定是阻力么? 甲乙两个车站相距168km,一列慢车从甲站开出,速度为36km/小时,一列快车从乙站开出,速度为48km/小时.慢车先开1小时,相向而行,快车开几小时后与慢车相遇?(列方程) 皮带上的点和主动轮与从动轮的上点所受的摩擦力有什么不同? 长200m的火车以43.2km/h的速度匀速行驶在京九线上,当它穿越1000m长的隧道时,所需时间为多少? A,B两地相距240KM,慢车从B地开出,每小时速度48KM,快车从A地开出,每小时速度72KM,若两列车同向快车在慢车的后面,慢车先开30分钟,慢车开出几小时后快车追上慢车? 客车以72km/h行驶,与它平行行驶的货车长度300m.客车上的人见货车从他眼前经过用10秒,货车匀速行驶速度 已知一列火车长200m,以20m/s的速度通过长1000m的隧道,这列火车完全通过隧道的时间是?、、思路啊 甲乙两站相距360km,一列慢车从甲站开出,每小时行48km,一列快车从乙站出发,每小时行72km,慢车先行25分钟两车相向而行,慢车开出几小时后与快车相遇?(用方程解,快啊) 一辆长12m的客车以72km/h的速度匀速行驶,突然迎面开来一辆长200m的货车,以10m/s的速度匀速向后驶去,那么坐在窗口的乘客看见货车从他眼前驶过的时间为? 计算题 : 一列车200m的火车穿过一个长1000m的隧道用了2min 火车的速度多大? 请写清做题步骤这是物理题 为什么电水壶烧水那么快 一主动轮通过皮带带动从动轮运动,主动轮顺时针运动,则主动轮上点M与从动轮点N的摩擦力方向为注:两轮呈水平放置,主动轮在左,从动轮在右,M为主动轮上最左边一点,N为从动轮上最右边一点 一列长200m的火车以100km/h的速度通过1000m的隧道,这列火车完全通过隧道需要多少秒?这是一道选择题。选项中没有答案是12秒的 。A 70s;B 60s; C 50s D 30S.写出计算过程 物体克服摩擦力做功与 摩擦力对物体做功有什么区 电水壶里没放水就直接插电炒水了,里面的发热管发黑了,继续用这样的发热管烧水,会不会使烧出来的水有毒呀? 一列长200m的火车穿过一个长1000m的隧道用了两分钟,则该火车的速度多大? 一列货车以6m/s的速度在平直铁路上运动,由于调度失误,在它后面120m处有一列客车20m/s的速度向它靠近...一列货车以6m/s的速度在平直铁路上运动,由于调度失误,在它后面120m处有一列客车20m/s的 货车以30千米一小时的速度从车站开出3小时后,一辆摩托车以50千米一小时的速度沿货车行驶的路线,几小时能 摩擦力属于阻力吗? 客车以20m/s的速度行驶,突然发现同轨前方120m处有一货车正以6m/s的速度匀速前进.于是客车紧急刹车,以0.8m/s“的加速度匀减速运动,试判断两车是否相撞 货车以30千米1时的速度从车站开出3小时后,一辆摩托车以50千米1小时的速度沿货车行驶路线追去,则几小时可以追上货车?及及及! 阻力和摩擦力一样么若一辆车匀速直线运动,则摩擦力与牵引力相等 ,那摩擦力与阻力相等吗?Why 新买的快速不锈钢电热水壶烧水都有味道,怎么回事?喝这些水对身 一辆摩托车追赶它前面相距120km并以50千米一小时的速度行驶的卡车,摩托车追了3小时才追上,求摩托车速度 下列货车以28.8km/h的速度在铁路上运行,由于调事故,在后面700米出有一列快车以72km/h的速度在行驶,快车司机发觉后立即合上制动器,但快车要滑行2000米才停下(1)两车会相撞吗,说明理由(2) 没有松香,请问焊锡膏能增加电机和皮带传送的摩擦力吗?洗衣机的皮带打滑了,百度了下,摸松香能够增加摩擦力.可是家里没有松香,突然想起电焊的时候摸松香和焊锡膏都可以,两者貌似成分相 一辆汽车以48千米每小时的速度做均匀直线运动.半小时后,一辆摩托车从车站出发去追汽车,经1小时30分追上,求摩托车的速度 动摩擦力与静摩擦力的大小如何?1静摩擦力与动摩擦力的大小有发比较吗?2相互作用的压力是什么意思? 用电水壶烧水电线发热正常吗? 皮带轮是增大摩擦力还是减小摩擦力,为什么? 静摩擦力的大小等于 物体的拉力是不是始终等于滑动摩擦力 C增大摩擦力 D减小摩擦力请仔细说明理由谢谢了.同一辆汽车能够输出的最大功率是有限的,故在输出功率不能增加的情况下,为了增大牵引力以利于爬坡,一般汽车的方法是()A减小速度 C增大 静摩擦力小于或者等于动摩擦力? 静摩擦力是否等于拉力 滑动摩擦力是否等于最大静摩擦力是不是拉力一定要大于最大静摩擦力才可以生成滑动摩擦 摩擦力减小能加快速度,摩擦力加大能加快速度吗? 静摩擦力的大小与______有关,但是当静摩擦力增大到等于滑动摩擦力的大小时,物体开始滑动,摩擦力就不再变化. 一列货车以28.8km/h的速度在铁路上运 行,由于调度事故,在后方700m处有一 列快车以72km/h的速度行驶,快车司机 发觉后立即合上制动器,但快车要滑行 2000m才能停下,试通过计算判断两车 是否会相 如图所示,传送带以 v的初速度匀速运动.将质量为m的物体无初速度放在传送带上的A端,物体将被传送带带到B端,已知物体到达B端之间已和传送带相对静止,则下列说法正确的是( )A.传送 一列长180m的火车匀速通过一个铁路桥,测得火车完全经过所用的时间为半分钟,并且火车速度为72km/h,铁路桥全长 为什么电热水壶烧水时声音很大? 传送带上的摩擦力做功是怎么算的?比如,有一传送带上有个木块和传送带一起运动,子弹把它打穿,并且木块的方向反向,在木块被打穿后,到再与传送带一起运动几秒钟,求传送带对外做的功和子 在铁道上开汽车追火车的是什么电影? 用电热水壶烧水是哪种变化?说一下为什么、、 传送带摩擦力做功问题传送带AB以恒速V=3M/S向右运动,AB长为3.8M,质量为m=5kg的物体,静止放到左端A处,同时用水平恒力F=25N向右拉物体,如物体与传送带间的滑动摩擦系数为0.25,求系统机械能的损 1、在一段铁路上,两辆火车相向驶过,若A列火车全长180m,B列火车160m,两列火车的错车时间为4秒,已知A列2、敌我两军相距25km,敌军以5km/h的速度逃跑,我军同时以8km/h的速度追击,并在相距1km处发生 一列列车从20的速度在平直的轨道上运行时,发现前面180处有一货车正以6的速度同向行驶,快车立即合上制动器,一列列车20m/s的速度在平直的轨道上运行时,发现前面180m处有一货车正以6m/s的速 物体在传送带上摩擦力做功水平的传送带以速度V=6M/S的顺时针运转,两轮N,M间隔为L=10M,若在M轮的正上方,将一质量为M=3KG的物体轻放在传送带上,已知物体与传送带的动摩擦因数为0.3,在物
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn