Question

有谁可以说说delphi TAction类什么作用？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

粗略点说到底就是一个封装了 一个TNotifyEvent类型方法（当然不止这一个，主要用的就是这个）和一些控制这个方法执行的属性的类，可以把一些控件的事件用TactionList集中起来管理，用的时候，可以向控件的事件指定执行哪一个Taction，就比如，你可以向一个Button的单击事件指定一个Taction.OnExecute事件来执行同样的方法……
procedure TForm1.act1Execute(Sender: TObject);
begin
ShowMessage(Sender.ClassName);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
act1.OnExecute(Sender);//其实就是执行的上面的方法
btn3.OnClick:= act1.OnExecute;//动态的指定btn3的单击事件，当再次单击btn3时执行TAction
end;
还有TAction类因为是个类，而不是单纯的是个方法类型的变量，它还有其他很多属性，比如热键，enabled。。都可以控制方法的执行，比较方便~