TActionList. Свойство 'Enabled' у действия в Рантайме.[Реш.]

[OberonAR]

День добрый всем! С наступающими!

Подскажите пожалуйста. В программе использую ActionList. Захотел по событию деактивировать ('Enabled:=false') все связанные с определенным Action-ом контролы (например пункт меню и SpeedButton). В Дезайнтайме такое свойство у Action-а есть и если в инспекторе объектов у него выставить Enabled в False, то все работает, контролы деактивируются. Но не могу добраться в Рантайме до этого свойства - его просто нет. Пробовал так:
DataModule1.Actions_main.ActionByName('Open_lica').Enabled:=False;
'Enabled' просто нет в списке автоподстановки.
Пробовал так-же через Actions[] - Тоже самое.

Так как же все таки установить это свойство? Или нужный мне результат (деактивация всех контролов, связанных с этим Action-ом) в данном случае делается как-то по другому?

[Light13]

Сделайте приведение типов.

Код: Выделить всё

(ActionList1.Actions[0] as TAction).Enabled := False;

[OberonAR]

Спасибо! Заработало.
IF получиться в 2-х словах Then
разъясните в контексте моего примера пожалуйста про приведение типов и почему в данном случае ActionByName('Open_lica') не является TAction-ом?
Else
Ткните в ссылки, где можно почитать про это не углубляясь до самых корней ;

[zub]

Я делаю примерно так:

Код: Выделить всё

MyActions:TActionList;
....
MyActions.OnUpdate:=ActionUpdate;
....
procedure MainForm.ActionUpdate(AAction: TBasicAction; var Handled: Boolean);
begin
     if AAction is TAction then
     begin
     Handled:=true;
     if экшенызапрещены then
                                                         TAction(AAction).Enabled:=false
                                                else
                                                         TAction(AAction).Enabled:=true;
     end;
end;

Также можно автоматом включать\выключать конкретные экшены, а не все сразу в зависимости от конкретной рантайм ситуации.

Погляди определение:

Код: Выделить всё

function ActionByName(const ActionName: string): TContainedAction;

по факту конечно возвращается твой TAction, но задекларирован его предок TContainedAction - поэтому нужно проверять и приводить тип

[OberonAR]

Погляди определение:
КОД: ВЫДЕЛИТЬ ВСЁ
function ActionByName(const ActionName: string): TContainedAction;

по факту конечно возвращается твой TAction, но задекларирован его предок TContainedAction - поэтому нужно проверять и приводить тип

Спасибо! Немного прояснилось.

[iskander]

А чем плохо

Код: Выделить всё

DataModule1.Open_lica.Enabled := False;

?

[OberonAR]

А чем плохо

Код: Выделить всё

DataModule1.Open_lica.Enabled := False;

?

О, блин. Работает. Хм... Вроде иерархия объектов должна была быть. Или это фича Формы данных?

[alexey38]

Или это фича Формы данных?

Так все компоненты, расставленные визуально описаны в описании класса формы. Посмотрите на описание этого класса в верху модуля.

[OberonAR]

Ну да... Как всегда, все просто . Спасибо.