Delphi中ActionList组件, Action 事件的自由调用方法

首先添加一个Actionlist 控件，双击控件添加事件，之后添加代码

 

procedure TMainForm.AutoIE_AddKeyWordsExecute(Sender: TObject);begin if OpenTextFileDialog1.Execute then Thread_AutoIE.AddKWFormTXT(OpenTextFileDialog1.FileName);end;

 

之后调用的时候只需要在按钮或者其他有action属性的控件中，将 action 属性设置一下就可以了。

 

这就是最基本的使用方法，但我要说的是让上面这个函数像自定义的函数一样自由的调用，

其实很简单，代码如下

procedure TMainForm.Button1Click(Sender: TObject);begin{ 下面这个就是 }AutoIE_AddKeyWords.Execute;end;