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

Delphi
Delphi开发经验四则
Delphi应用程序的应用(一)
Delphi应用程序的应用(二)
异常处理与程序调试(一)
异常处理与程序调试(二)
异常处理与程序调试(三)
Delphi开发数据库应用程序概述(一)
Delphi开发数据库应用程序概述(二)
简单数据库应用的创建及MASTAPP介绍(一)
简单数据库应用的创建及MASTAPP介绍(二)
简单数据库应用的创建及MASTAPP介绍(三)
数据访问部件的应用及编程(一)
数据访问部件的应用及编程(二)
数据访问部件的应用及编程(三)
数据浏览部件的应用及编程(一)
数据浏览部件的应用及编程(二)
SQL编程(一)
SQL编程(二)
Delphi客户服务器应用开发(一)
Delphi客户服务器应用开发(二)

Delphi设计PhotoShop型弹出菜单


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