Delphi中ActionList及Action使用

最新推荐文章于 2022-09-06 10:56:25 发布
最新推荐文章于 2022-09-06 10:56:25 发布
阅读量4.3k 收藏 2
点赞数
分类专栏： Delphi 文章标签： Delphi 控件
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zisongjia/article/details/78590910
版权

ActionList:用于管理程序中的Action

Action:可用于管理程序中控件的状态

 

当Action与某一控件相关联时(假定相关联控件为button)，button的相关属性的值和对应事件会自动转变为Action中设定的属性值和相应的事件。此处需要特别注意的是Action的OnUpdate和OnExecute事件：

OnUpdate:当程序空闲时会运行该事件，所以在该事件中我们可以控制button控件的状态，比如enable、disable等.但应通过action来控制，比如action.enabled:=true;若直接通过控件来控制，比如button.enabled:=true,可能无法得到预想的效果.

OnExecute:该事件会替换button的OnClick事件。此处一定要牢记的是OnClick中的代码一定要写在OnExecute中， 否则点击button时可能没有响应。这可能是因为当Action与button关联后button的OnClick事件自动对应为 Action的OnExecute事件，而OnExecute事件为空，所以点击button没有响应。这里与delphi的帮助文档有出入。

在做快速实施部署工具和快速配置管理工具时由于没有注意以上两点，搞得后来不得不修改程序，希望以后引以为戒。


更多Delphi交流学习，请加QQ:2609715119

   非诚勿扰！

紫松Win
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi_ActionList详解
05-03
Delphi_ActionList详解，教你如何使用
delphi action学习
weixin_30631587的博客
11-07 217
procedure TEditAction.UpdateTarget(Target: TObject); begin if (Self is TEditCut) then Enabled := (GetControl(Target).SelLength > 0) and not GetControl(Target).ReadOnly else if (Self i...
delphi控件属性和事件
weixin_30416871的博客
11-21 337
http://www.cnblogs.com/rogee/archive/2010/09/17/1829574.htmldelphi控件属性和事件 复制代码 常用【属性】 　Action：该属性是与组件关联的行为，允许应用程序集中响应用户命令 　Anchors：与组件连接的窗体的位置点 　Align：确定组件的对齐方式 　AutoSize：确定组件是否自动调整其大小 　B...
在Delphi中使用Action降低水平功能和业务功能的耦合
weixin_30763455的博客
08-02 62
权限和日志管理是较为常见的水平功能，而且需求比较灵活，通常硬编码到程序中。本文将对Delphi中的Action进行扩充实现将权限和日志管理功能从主程序中分离。1. 常见的方法是将权限管理和日志管理直接硬编码到过程或者对象的方法中。例如：procedure TForm1.Button1Click(Sender: TObject);begin if isSuperUser(UserName) th...
DelphiXE7取代默认的ActionList编辑器。
03-07
DelphiXE7取代默认的ActionList编辑器。其他XE版本应该可以用。Delphi5或7需要修改代码。 默认的编辑器只能看到Action的名称，不能看到标题，因此做了这个编辑器。 增加了以下功能： 1、ListView显示Action的标题，图标，快捷键。 2、Action自动命名的尾部序号宽度为3位数字。 3、快速选择标准Action。 4、收藏Action。 代码修改自EControl Form Designer Pro。源代码来自网上。可能有版权保护，只可以研究，不要用于商业。
ActionList及Action使用
adamrao的专栏
04-11 4193
ActionList:用于管理程序中的Action Action:可用于管理程序中控件的状态   当Action与某一控件相关联时(假定相关联控件为button)，button的相关属性的值和对应事件会自动转变为Action中设定的属性值和相应的事件。此处需要特别注意的是Action的OnUpdate和OnExecute事件： OnUpdate:当程序空闲时会运行该事件，所以在该事件中我们
Delphi ActionList详解
苏生-苏米沿的专栏
03-22 1685
一个友好的用户界面,必须具有下拉菜单，弹出菜单，工具条和快捷键。同样一个功能，程序员可能要提供几种操作方式，如文本拷贝，菜单命令 &Copy,快捷键Ctrl+C,工具条上的拷贝按钮，都是程序员提供给用户的操作，可以大大方便了不同层次的用户。但是，多增加一种操作方式，就意味着增加响应事件的代码，还有，实现统一功能的多个操作必须一致，如剪切板上不为空的时候，菜单命令，快捷键，按钮，都是可以选择的Ena
Delphi中ActionList组件, Action 事件的自由调用方法
09-08 5230
<br />首先添加一个Actionlist 控件，双击控件添加事件，之后添加代码<br /> <br />procedure TMainForm.AutoIE_AddKeyWordsExecute(Sender: TObject); begin if OpenTextFileDialog1.Execute then Thread_AutoIE.AddKWFormTXT(OpenTextFileDialog1.FileName); end;<br /> <br />之后调用的时候只需要在
Delphi 如何在ActionManager要如何新增一个Category?
zjg076000的博客
09-06 244
Delphi 如何在ActionManager要如何新增一个Category?，这里可以教你轻松定义自己的 自定义category 分类，
Delphi ActionList详解
HzqGhost's Blog
12-23 3146
一个友好的用户界面,必须具有下拉菜单，弹出菜单，工具条和快捷键。同样一个功能，程序员可能要提供几种操作方式，如文本拷贝，菜单命令 &Copy,快捷键Ctrl+C,工具条上的拷贝按钮，都是程序员提供给用户的操作，可以大大方便了不同层次的用户。但是，多增加一种操作方式，就意味着增加响应事件的代码，还有，实现统一功能的多个操作必须一致，如剪切板上不为空的时候，菜单命令，快捷键，按钮，都是可以选择的Ena
Delphi使用ActionList1动态生成树状菜单实例.rar
07-10
Delphi由ActionList1动态生成树状菜单的操作，利用它可方便进行权限管理，或者是对数据字典的管理。程序编译需要RzTreeVw控件，请事先准备好。
.Net控件，类似Delphi的ActionList，有源码
12-08
.Net控件，类似Delphi的ActionList，有源码的哦。
ActionListToRzTreeView(使用ActionList动态生成树).zip
11-26
ActionListToRzTreeView(使用ActionList动态生成树)，参照别人写的，又改进了一下，需要Raize组件。
锂电池涂布模头，全球前7强生产商排名及市场份额.docx
05-06
锂电池涂布模头，全球前7强生产商排名及市场份额
ISO IEC 21964-2-2018.pdf
05-06
ISO IEC 21964-2-2018.pdf
编译程序构造的一般原理和基本方法.pdf
05-06
编译原理是计算机专业的一门核心课程，旨在介绍编译程序构造的一般原理和基本方法。编译原理不仅是计算机科学理论的重要组成部分，也是实现高效、可靠的计算机程序设计的关键。本文将对编译原理的基本概念、发展历程、主要内容和实际应用进行详细介绍编译原理是计算机专业的一门核心课程，旨在介绍编译程序构造的一般原理和基本方法。编译原理不仅是计算机科学理论的重要组成部分，也是实现高效、可靠的计算机程序设计的关键。本文将对编译原理的基本概念、发展历程、主要内容和实际应用进行详细介绍编译原理是计算机专业的一门核心课程，旨在介绍编译程序构造的一般原理和基本方法。编译原理不仅是计算机科学理论的重要组成部分，也是实现高效、可靠的计算机程序设计的关键。本文将对编译原理的基本概念、发展历程、主要内容和实际应用进行详细介绍编译原理是计算机专业的一门核心课程，旨在介绍编译程序构造的一般原理和基本方法。编译原理不仅是计算机科学理论的重要组成部分，也是实现高效、可靠的计算机程序设计的关键。本文将对编译原理的基本概念、发展历程、主要内容和实际应用进行详细介绍编译原理是计算机专业的一门核心课程，旨在介绍编译程序构造的一般原理和基本
海关商品编码/HS编码表
05-06
用于海关申报商品编码/HS编码信息
node-v9.6.1-linux-arm64.tar.xz
最新发布
05-06
Node.js，简称Node，是一个开源且跨平台的JavaScript运行时环境，它允许在浏览器外运行JavaScript代码。Node.js于2009年由Ryan Dahl创立，旨在创建高性能的Web服务器和网络应用程序。它基于Google Chrome的V8 JavaScript引擎，可以在Windows、Linux、Unix、Mac OS X等操作系统上运行。 Node.js的特点之一是事件驱动和非阻塞I/O模型，这使得它非常适合处理大量并发连接，从而在构建实时应用程序如在线游戏、聊天应用以及实时通讯服务时表现卓越。此外，Node.js使用了模块化的架构，通过npm（Node package manager，Node包管理器）,社区成员可以共享和复用代码，极大地促进了Node.js生态系统的发展和扩张。 Node.js不仅用于服务器端开发。随着技术的发展，它也被用于构建工具链、开发桌面应用程序、物联网设备等。Node.js能够处理文件系统、操作数据库、处理网络请求等，因此，开发者可以用JavaScript编写全栈应用程序，这一点大大提高了开发效率和便捷性。 在实践中，许多大型企业和组织已经采用Node.js作为其Web应用程序的开发平台，如Netflix、PayPal和Walmart等。它们利用Node.js提高了应用性能，简化了开发流程，并且能更快地响应市场需求。
Delphi中的TActionManager和TActionList的用法，给出详细Demo.
07-15
在Delphi中，TActionManager和TActionList是用于管理和处理应用程序中的操作（Actions）的组件。它们被广泛用于构建具有菜单、工具栏和快捷键的用户界面。下面是一个详细的示例，展示了如何使用TActionManager和TActionList来创建操作，并将它们关联到菜单和工具栏。 首先，创建一个新的VCL应用程序，并在主窗体上放置一个TMainMenu和一个TToolBar组件。然后，在主窗体上放置一个TActionManager组件，并设置其Name属性为ActionManager1。 接下来，双击TActionManager组件，在其事件列表中添加一个OnUpdate事件。在该事件的代码编辑器中，添加以下代码： ```delphi procedure TForm1.ActionManager1Update(Action: TBasicAction; var Handled: Boolean); begin // 在这里更新操作的Enabled和Visible属性 end; ``` 然后，在主窗体上放置一个TActionList组件，并设置其Name属性为ActionList1。 现在，我们可以开始创建操作了。双击TActionList组件，在其集合编辑器中添加两个新的操作（Actions）。对于每个操作，设置Caption属性为相应的菜单项或工具栏按钮的文本。 接下来，为每个操作添加相应的事件处理程序。例如，对于一个名为Action1的操作，在TActionList的事件列表中找到Action1的OnExecute事件，并在代码编辑器中添加以下代码： ```delphi procedure TForm1.Action1Execute(Sender: TObject); begin ShowMessage('Action 1 executed'); end; ``` 重复上述步骤为每个操作添加事件处理程序。 现在，我们将这些操作与菜单和工具栏按钮关联起来。在主窗体上的TMainMenu组件中，右键单击一个菜单项，选择"Link to Action"，然后选择相应的操作。对于TToolBar组件中的工具栏按钮，可以直接在对象树视图中选择相应的操作。 最后，在主窗体的FormCreate事件中添加以下代码，将TActionList组件与TActionManager组件关联起来： ```delphi procedure TForm1.FormCreate(Sender: TObject); begin ActionManager1.ActionBars.Add(ActionList1); end; ``` 现在，运行应用程序，你将看到菜单和工具栏按钮与操作关联起来了。当你点击菜单项或工具栏按钮时，相应的操作事件处理程序将被触发。 希望这个示例能帮助你理解TActionManager和TActionList的用法。如果你还有其他问题，请随时提问！

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值