网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
Delphi中ActionList组件在菜单编制中的应用
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式

Delphi的VCL提供有MainNenu、PopupMenu、Button、BitBtn、SpeedButton等组件来帮助我们设计菜单功能。这些组件的使用方式非常简单,因而使得菜单的设计也变的很简单。
MainMenu组件是主要的下拉式菜单,大部份的窗口程序菜单都是使用这个对象来完成的。它的优点是设计方式简单,符合标准,不占画面空间。缺点是必须一层一层地进入子功能选项,无法一次看到所有功能选项,而且在尚无选择任何功能之前,窗口内空无一物,不甚美观。
Delphi还提供了PopupMenu组件来制作鼠标右键菜单,使用鼠标指向任一对象,再按下鼠标右键时,会看到一个下拉式的功能菜单,可以直接选择这些功能,而不用进入一层又一层的主功能菜单,使用非常方便。
利用Delphi提供的Button、BitBtn、SpeedButton三个按钮组件,可以制作按钮菜单。它的优点是可以加入漂亮的图标,一次可以看到许多选项。缺点是占程序及画面空间,而且不符合窗口应用程序标准规范。
至于使用何种方式来构造自己的功能菜单,必须根据自己的需要而定,如果你想编写一个符合窗口标准的应用程序,下拉式菜单是唯一的选择,如果你编写的应用程序功能选项并不多,可以考虑采用按钮菜单的设计方式。那么是不是在编制菜单程序时,只能选择下拉式菜单或按钮菜单中的一种呢?答案当然不是。你完全可以将下拉式菜单、按钮菜单、鼠标右键菜单联合使用,制作成具有Windows风格的窗口菜单。
但是当你采用上述三种菜单方式来制作具有Windows风格的窗口菜单时,常常会发生一些困扰,你必须在MenuItem的OnClick事件过程内编写程序代码,如果SpeedButton或PopupMenu执行的是同样的功能,那么为了不让程序重复,必须把SpeedButton或PopupMenu的OnClick事件指向MenuItem的OnClick事件,如此一来,当应用程序的规模越来越大时,你将越不容易维护程序,因为程序与功能项目间的关系会变得很复杂,如果MenuItem中的名称起的不规范,就更不容易维护。用Delphi提供的ActionList组件,就可以解决上述扰人的问题,程序的写法是把所有的功能项目都声明在ActionList组件内,然后再把控制组件的Action属性或激活事件(像OnClick、OnDblClick等)指向ActionList组件内的ActionItem,这时就可以在ActionList组件内统一管理所有的程序了。下面结合一个具体的应用程序说明它的制作方法:
首先,在组件模板Standard页面上找到ActionList组件,把它拉到Form上,然后在它上面用鼠标双击打开ActionList编辑器,用NewAction按钮或在左半边Categories按鼠标右键来建立一个ActionItem,然后根据不同的功能定义给与ActionItem具有特定意义的名称,最后再把程序代码写在ActionItem的OnExecute事件过程内。

接下来,根据应用程序的功能项目,一个一个地把ActionItem定义出来,然后编写实际的程序代码,这时候整个ActionList才算完成,像上面的应用程序Menu上有一个“出库单”功能选项,SpeedButton也有“出库单”功能按钮,这两件组件都有一个名为Action的属性,把此属性指向TActionList的Ckd项目,将会执行同一功能。这样一来,程序代码就很容易维护,而且程序的结构也变得更清楚。


程序代码如下:(部分)
unit mainuni;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, Buttons, Menus, StdCtrls, Grids, jpeg, ActnList, ImgList;

type
Tmainfrm = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: T
  • 下一篇资讯: Delphi ActionList详解
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号