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

Delphi
得到执行程序的目录
返回程序执行参数
如何区分3种不同的FormActive事件
正确关闭一个MDI子窗口
写小执行程序
替换指定串函数
动态数组
动态产生构件并相应事件
文件管理(一)
想成高手吗?快来学Delphi快捷键
浅谈Delphi如何控制Excel操作
用Delphi检测IE使用的代理服务器
Delphi学习:查句柄知多少
Delphi学习:OOP 中的双刃剑
在 NT内核的操作系统上实现系统关闭
用Delphi制作DLL的方法
Delphi:Daily build实践
Delphi控制Excel的重要属性和方法
Delphi学习:2个不错的通配符比较函数
字符串分割扩展 SplitEx

Delphi设计PhotoShop型弹出菜单


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