ActionList - программное изменение картинки

← →
Ranikin (2002-12-25 11:38) [0]

Есть ActionList, и собственно Actions.
Как поменять программно картинку у опред Action ?
Если написать так :
ActionList.Actions[0] - то возвращается объект типа TContainedAction и собственно нельзя получить доступ к свойству ImageIndex ...
Вопрос :
Как перебрать все Actions и поменять ImageIndex ?

Вопрос №2:
Как Перебрать все объекты формы и получить к ним доступ ?

← →
Reindeer Moss Eater (2002-12-25 11:47) [1]

Перебрать все Actions - GetChildren

← →
VAleksey (2002-12-25 11:48) [2]

for i:=0 to Form1.ComponentCount - 1 do
begin
if Form1.Components[i] is T..//нужный тип
then
begin
T..(Form1.Components[i]).ImageIndex:=..
end;
end;
Ответ типа на оба вороса :))

← →
Reindeer Moss Eater (2002-12-25 11:54) [3]

Не, вот так
for i:=0 to Pred(ActionList1.ActionCount) do
TAction(ActionList1.Actions[i]).ImageIndex:=NewValue;

ActionList - программное изменение картинки Найти похожие ветки