TAction Execute事件怎么通过参数来调用？

Question

TAction  Actions有 01,02,03,....每个里面都有Execute事件。
怎么样通过参数方式调用Execute事件？
比如传进来01,就调用01Execute事件。不是通过赋值方式。（if ss=01 then 01Execute ; if ss=02........这个方法大家都会^-^）
有没有简便的办法？
TMainMenu(FindComponent('MainMenu')).Items[ii].Items[jj].OnClick =具体的事件？？

Answer 1

TAction(FindComponent('Action'+IntToStr(1))).Execute;

Answer 2

我说的意思你可能没明白啊。是这样的，我有一组自动生成的菜单，现在把action的事件给菜单的onlick事件。谢谢

Answer 3

借用楼上的；
TAction(FindComponent('Action'+IntToStr(菜单.Tag))).Execute然后每个菜单的tag数据定义上值；

Answer 4

再说清楚点，就是menuitem的onlick事件=TAction.Execute的某个事件 ,只有点击菜单才有效。
在创建菜单的时候就把菜单的onlick事件定义好。

Answer 5

“        TMainMenu(FindComponent('MainMenu')).Items[ii].Items[jj].OnClick :=
        TAction(FindComponent('Action'+IntToStr(1))).Execute ;
”
这个写法成立吗？
我的问题是怎么样给OnClick所需的事件。事件是action里的execute事件。
只是给onclick事件赋值，在点菜单的时候才起效。

Answer 6

TMainMenu(FindComponent('MainMenu')).Items[ii].Items[jj].OnClick :=
        TAction(FindComponent('Action'+IntToStr(1))).OnExecute ;
搞定。
给大家散分，快点顶，5点结帐

Answer 7

为什么要动态肤ｏｎｃｌｉｃｋ而不是
TMainMenu(FindComponent('MainMenu')).Items[ii].Items[jj].action:=
        TAction(FindComponent('Action'+IntToStr(1)))这样ａｃｔｉｏｎ的设置对ｍｅｍｕ也有效啊，ａｃｔｉｏｎ．ｅｎａｂｌｅ　：＝　ｆａｌｓｅ　ｍｅｍｕ也一样不能用了