Code:

var

{©Drkb v.3(2007): www.drkb.ru}

NewAction : TAction;

begin

NewAction := TAction.Create(self);

NewAction.ActionList := ActionList1;

end;

 Автор ответа: Dayana 

Функция CreateAction (AOwner: TComponent;ActionClass: TBasicActionClass ):TBasicAction;

Модуль: ActnList

Функция создает действие (Action) заданного типа, которое отображается во время проектирования в редакторе списка Action.

Тип Action указывается в параметре ActionClass.

Вызов функции аналогичен выполнению кода ActionClass.Create(AOwner), за исключением того, что функция CreateAction использует значение параметра Resource процедуры RegisterActions для инициализации значений action-объекта, основанного на данном параметре.