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

Delphi
Delphi客户服务器应用开发(三)
Delphi快速入门(五)
Delphi面向对象的编程方法(一)
Delphi面向对象的编程方法(二)
Delphi面向对象的编程方法(三)
Delphi面向对象的编程方法(四)
字符串列表及应用(一)
字符串列表及应用(二)
文本编辑器的设计(一)
文本编辑器的设计(二)
Delphi图形图像编程(一)
Delphi的两个实用技巧(1)
Delphi的两个实用技巧(2)
delphi实例编程之--制作可随处拖放的工具栏
Delphi快速入门(一)
Delphi快速入门(二)
Delphi快速入门(三)
Delphi快速入门(四)
动态链接库编程(二)
Delphi图形图像编程(二)

Delphi设计PhotoShop型弹出菜单


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-30   浏览: 47 ::
收藏到网摘: 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