Delphi编程:完全控制桌面的实现

转载 2012年01月15日 01:35:31

======================================================
注:本文源代码点此下载
======================================================

田志刚 (2000-10-19)

在windows 9x中系统桌面和开始菜单可以说是它的一大特色,其实我们可以利用delphi轻易地在应用程序中实现这种技术 :

新建一个应用程序, 将form1窗体的borderstyle属性设置为bsnone,formstyle属性设置为 fsstayontop,windowstate属性设置为wsmaximized。

如有必要可在form1窗体中放置一个image控件image1,为它的picture属性装入一幅自己喜爱的图像并将它的align属性设置为alclient,stretch设置为true,使图像拉伸占满form1的客户区,作为系统背景。

然后,新建一个窗体form2,将它的borderstyle属性设置为bsnone,formstyle属性设置为fsstayontop。

在form2内放置一个speedbutton控件speedbutton1和一个popupmenu控件popupmenu1。

将speedbutton1的top属性设为0,left属性设为0,caption属性设为 “在这里”(也可随你) ,还可设置glyph属性为它加上一个图像。双击popupmenu1控件,根据自己需要设置各个菜单项。

接下来为form1的oncreate事件添加如下代码:

procedure tform1.formcreate(sender: tobject);

var

tep:integer;

begin

//用来屏蔽ctrl+alt+del、ctrl+tab

功能及屏幕保护程序的运行

tep:=0;

systemparametersinfo(spi_setfasttaskswitch,

1,@tep,0);

systemparametersinfo(spi_screensaverrunning,

1,@tep,0);

end;

为form1的onmousemove事件添加代码如下:

procedure tform1.formmousemove

(sender: tobject; shift: tshiftstate; x,y: integer);

begin

//当鼠标移动到form1的底部时显示form2(即开始菜单) ,否则隐藏form2

if y〉form1.height-30 then

begin

form2.left:=form1.left;

form2.top:=form1.height-30;

form2.width:=form1.width;

form2.height:=30;

form2.show;

end

else

form2.hide;

end;

如果你按上面步骤添加了image1控件,请在form1的image1的onmousemove事件编辑栏内选择formmousemove。

为form2中的speedbutton1的onclick事件添加如下代码:

procedure tform2.speedbutton1click

(sender: tobject);

begin

//当用户单击 speedbutton1按钮后弹出由popupmenu1构成的“开始”菜单项

popupmenu1.popup(form2.left,form2.top);

end;

最后为“退出考勤系统”菜单项的onclick事件添加如下代码:

procedure tform2.a6click(sender: tobject);

begin//退出应用程序

application.terminate;

end;

现在,您就可以运行这个程序看看您的劳动成果了。

trackback: http://tb.blog.csdn.net/trackback.aspx?postid=3157


======================================================
在最后,我邀请大家参加新浪APP,就是新浪免费送大家的一个空间,支持PHP+MySql,免费二级域名,免费域名绑定 这个是我邀请的地址,您通过这个链接注册即为我的好友,并获赠云豆500个,价值5元哦!短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了,每天挂广告赚50+元哦,呵呵,饭钱不愁了,\(^o^)/

Delphi编程:完全控制桌面的实现

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 19:44
  • 141

Delphi编程:完全控制桌面的实现

2000年11月27日 08:57:00 田志刚 (2000-10-19)  在Windows 9x中系统桌面和开始菜单可以说是它的一大特色,其实我们可以利用Delphi轻易地在应用程序中实现...
  • softart
  • softart
  • 2007年10月27日 07:30
  • 211

挂接CreateProcessW实现对进程创建的完全控制

SystEm32:这份文档演示了如何实现全局HOOK>+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++...
  • iiprogram
  • iiprogram
  • 2005年08月05日 11:03
  • 903

魅族/锤子/苹果 悬停效果的实现

一、背景:近日研究当前主流手机的单手操作效果。 一类是小米的单手小屏模式:将原本5寸以上的屏幕缩小到3.5/4寸的大小,以方便单手操作 另外一类是魅族/锤子/苹果的 悬停效果:屏幕可以下拉到下半部分,...
  • jiangguohu1
  • jiangguohu1
  • 2015年11月24日 17:04
  • 270

DELPHI实现类似仿360桌面的程序界面

http://blog.csdn.net/hnxxcxg/article/details/6607073 1.窗体半透明: Alphablend属性为true;Alphablendvalue的值为1...
  • l799623787
  • l799623787
  • 2012年10月12日 17:32
  • 4081

Win7系统怎样用键盘操作桌面、开始菜单、文件夹、文档等

1.      用键盘操作桌面、开始菜单 Win+D:显示桌面 Win或Ctrl+Esc用于操作开始菜单 再用方向键“→←↑↓”选中某一项 回车:打开该项 Alt+F4:关闭该项   2.      ...
  • yixiubaixue
  • yixiubaixue
  • 2014年11月30日 14:25
  • 238

Delphi下使用并口控制打印机的方法

Delphi下使用并口控制打印机的方法 使用Delphi编程的人员如果需要在Windows下使用并口打印机逐行打印,而又不想使用Windows的驱...
  • lailai186
  • lailai186
  • 2013年08月07日 11:30
  • 2505

漫宅助手(java透明桌宠)

说明:Java综合设计——漫宅助手 主要软件功能: (1)互动——鼠标点击(眼、耳、头发、眼睛等) (2)温馨Tips(小贴士) (3)实时推送bilibili动漫...
  • u014494705
  • u014494705
  • 2015年01月04日 01:41
  • 3263

什么是桌面虚拟化,实施桌面虚拟化有什么好处?

桌面虚拟化是指将计算机的桌面进行虚拟化,以达到桌面使用的安全性和灵活性。  “Desktop virtualization (或者成为Virtual Desktop Infrastructure) 是...
  • Angelia222
  • Angelia222
  • 2011年05月25日 16:03
  • 3111

用delphi打造属于自己的播放器

    如今RealPlayer的流式媒体文件以其强大的视频压缩比正逐步悄然兴起。RealPlayer Plus播放器也理所当然地成为大家播放RealPlayer格式文件的首选软件。不过RealPla...
  • delphier817
  • delphier817
  • 2010年05月11日 13:36
  • 495
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi编程:完全控制桌面的实现
举报原因:
原因补充:

(最多只允许输入30个字)