按钮的Action属性设置了某个TAction以后，如何在此基础上更进一步执行别的？

努力偷懒 2005-04-28 10:12:47

我的某个按钮里面设置了Action以后，我想在这基础上，再加点别的代码，现在的问题是：找不到在什么事件里面添加我的特殊代码，如果加到那个Taction里面加，那样不符合我的原意，在按钮的onclick里面加，我按快捷键好像触发不了onclick的事件！请问还有什么方法可以弄啊？

...全文

59 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

努力偷懒 2005-05-12

打赏
举报

回复

顶一下！

努力偷懒 2005-04-28

打赏
举报

回复

在不同的地方调用这个action有不同的特殊处理，例如，我执行完这个action以后，某个窗体里面的数据库要刷新，要是在action里面弄，那不就要做很多判断了？那是狠麻烦的事情，要是在onclick事件里面调用这个函数（2楼你说在onclick事件继承这个函数是什么意思？），那么要是这个action的enable属性为false的话，我就利用不了它这个enable属性了！

XINGXIMU 2005-04-28

打赏
举报

回复

你就在action里面写代码就行啊
要么你就再其他地方写
然后click时间继承这个函数就好

1. 新建一个 VCL 项目：选择菜单 File New VCL Forms Applicaion - C++ Builder 2. 在 Form1 上放一个

本书阐述中、高级开发主题，如创建客户/服务器数据库应用程序，编写定制组件,创建 Internet Web服务器应用程序，还包括对工业标准规范的支持，如TCP/IP、OLE以及ActiveX。本书需要你熟悉 C++Builder的使用，理解基本的C++Builder编程技术

简单的记事本程序 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ToolWin, ImgList, Menus, BandActn, StdActns, ActnList, ExtActns, ExtCtrls; type TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; ImageList1: TImageList; ToolBar1: TToolBar; ToolButton1: TToolButton; ToolButton3: TToolButton; ToolButton2: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; ToolButton9: TToolButton; ToolButton10: TToolButton; ToolButton11: TToolButton; ToolButton12: TToolButton; ToolButton13: TToolButton; StatusBar1: TStatusBar; Memo1: TMemo; ActionList1: TActionList; EditCut1: TEditCut; EditCopy1: TEditCopy; EditPaste1: TEditPaste; EditSelectAll1: TEditSelectAll; EditUndo1: TEditUndo; EditDelete1: TEditDelete; FileNew: TAction; FileOpen: TAction; FileSave: TAction; FileExit: TAction; FormatST: TAction; FormatKT: TAction; FormatLS: TAction; FormatRed: TAction; FormatBlue: TAction; FormatBlack: TAction; CustomizeActionBars1: TCustomizeActionBars; N20: TMenuItem; N21: TMenuItem; R1: TMenuItem; B1: TMenuItem; K1: TMenuItem; N15: TMenuItem; SearchFind1: TSearchFind; SearchReplace1: TSearchReplace; ComboBox1: TComboBox; RichEditUnderline1: TRichEditUnderline; FileOpen1: TFileOpen; mmnBold: TMenuItem; mmnItalic: TMenuItem; mmnUnderline: TMenuItem; procedure FileNewExecute(Sender: TObject); procedure FileOpenExecute(Sender: TObject); procedure FileSaveExecute(Sender: TObject); procedure FileExitExecute(Sender: TObject); procedure FormatSTExecute(Sender: TObject); procedure FormatKTExecute(Sender: TObject); procedure FormatLSExecute(Sender: TObject);

Delphi（和Kylix）组件包可以对用户和配置文件进行管理和访问控制。支持ADO，DBX，IBX，BDE，IBO，UIB，Midas，FIBPlus，ZeosDBO，DBISAM，MDO，MyDAC，MySQLDAC和ASTA3。访问控制自动提取TMenu，TActionList和TAction

ActionList:用于管理程序中的Action Action:可用于管理程序中控件的状态当Action与某一控件相关联时(假定相关联控件为button)，button的相关属性的值和对应事件会自动转变为Action中设定的属性值和相应的事件。此处需要特别注意的是Action的OnUpdate和OnExecute事件： OnUpdate:当程序空闲时会运行该事件，所

829

社区成员

53,610

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章