【Delphi学习】TActionManager的用法

1. Delphi 的工具栏 Additional 的标签下,找到控件
2.
双击控件,打开一个设计器,在里面有三个页签 Toolbars/Actions/Options
2.1
创建你需要的 Actions ,例如 A1,A2   然后写上相应的处理业务的代码。
2.2
Toolbars 创建你需要的 ActionToolbar.
2.3 ActionManager
Actionbars 属性中打开,选中一个 ActionBar 对应的 ActionToolBar 就可以实现你的要求了。
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
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、付费专栏及课程。

余额充值