当前位置: 首页 > 图文教程 > 开发语言 > Delphi > Delphi设计PhotoShop型弹出菜单

Delphi
Delphi 4.0 制作数据库发行盘技巧
用Delphi 开发数据库程序经验三则
在Delphi中定位文件位置
Delphi编程技巧实例
delphi构件制作方法简介
在Delphi中如何控制其它应用程序窗口
用Delphi实现远程屏幕抓取
用Delphi6制作网页特效软件
Delphi多层应用程序的实现
Delphi下汉字输入法的编程及使用
Delphi巧克力的滋味(1)
DELPHI下汉字输入法的编程及使用(1)
Delphi中高级DLL的编写和调用(1)
Delphi中实现多线程同步查询(1)
Delphi中实现多线程同步查询(2)
Delphi中对Oracle存取RTF文档(1)
Delphi5实现多层Client/Server应用程序(1)
扩展Delphi的线程同步对象(1)
Delphi制作带图标的弹出式选单
用Delphi编写安装程序(1)

Delphi设计PhotoShop型弹出菜单


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-30   浏览: 55 ::
收藏到网摘: n/a





  制作方法如下:

  1.打开Delphi, 在Form1中放置一个TButton构件。

  2.新建一个窗体,使用默认名字Form2。

  3.将Form2的BorderStyle属性设置为bsNone,这样将会去掉窗体的标题栏和边框。

  4.在Form2中加入TPanel构件Panel1,将Panel1的BevelInner和BevelOuter属性设置为bvRaised,将Align属性设置为alClient。用Panel1的边框来作为菜单窗体的边框。

  5.在Unit1的Implementation部分的uses中加入Unit2。

  6.双击Form 1中的按钮构件Button1,添加如下代码:

procedure TForm1.Button1Click