Ich mache das so:
Delphi-Quellcode:
function TEineForm.CreateAction(const AName, ACategory, ACaption: string;
AShortCut: TShortCut; AOnExecute: TNotifyEvent; AOnUpdate: TNotifyEvent = nil): TAction;
begin
Result := TAction.Create(Self);
Result.Name := AName;
Result.Category := ACategory;
Result.Caption := ACaption;
Result.ShortCut := AShortCut;
Result.OnExecute := AOnExecute;
Result.ActionList := EineActionList;
end;
Allerdings verwende ich ActionLists pur ohne ActionManager - k.A., ob das einen Unterschied macht.