Вниз
Скачать: CL | DM;

Как добавить в ActionList Action?   Найти похожие ветки 

← →
TStas ©   (2008-04-04 15:53) [0]

Как добавить в ActionList Action в RunTime?
Делаю так:
 Action := TAction.Create(FActionList);
 Action.Name := UPDATE_ACTION_NAME;
 Action.Caption := UpdateActionCaption;
 Action.ImageIndex := UPDATE_INDEX;
 Action.OnExecute := UpdateActionExecute;
А вот дальше непонятно. Почему-то метода Add у листа нету. :(


← →
Игорь Шевченко ©   (2008-04-04 15:57) [1]

Action.ActionList := FActionList ?


← →
TStas ©   (2008-04-04 15:59) [2]

Спасибо, Игорь. Вот, в жизни бы не догадался, что так надо делать.


← →
Сергей М. ©   (2008-04-04 15:59) [3]

When instantiating TAction at runtime, assign a TActionList or TActionManager component to the new action’s ActionList property after calling Create.


← →
TStas ©   (2008-04-04 16:05) [4]

По Action"ам книжки нету.
Есть у компонента свойство типа TAction
Если я в методе чтения тип просто привожу, это глюк не вызовет?
function TStUpdator.GetActions(const Index: Integer): TAction;
begin
 Result := TAction(FActionList.Actions[Index]);
end;


← →
clickmaker ©   (2008-04-04 16:49) [5]


> Есть у компонента свойство типа TAction

вообще-то TBasicAction
все остальные (ContainedAction, Action) - его наследники


← →
имя   (2008-04-04 17:33) [6]

Удалено модератором


← →
имя   (2008-04-04 17:57) [7]

Удалено модератором


← →
имя   (2008-04-04 18:33) [8]

Удалено модератором


← →
имя   (2008-04-04 19:14) [9]

Удалено модератором


← →
имя   (2008-04-04 19:16) [10]

Удалено модератором


← →
имя   (2008-04-04 21:04) [11]

Удалено модератором


← →
имя   (2008-04-04 21:15) [12]

Удалено модератором


← →
имя   (2008-04-04 21:50) [13]

Удалено модератором


← →
имя   (2008-04-04 22:17) [14]

Удалено модератором


← →
имя   (2008-04-04 23:04) [15]

Удалено модератором


← →
имя   (2008-04-04 23:51) [16]

Удалено модератором



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.014 c
15-1228434511
Дмитрий С
2008-12-05 02:48
2009.01.25
Как получить все содержиме IStream


15-1228220190
Анна
2008-12-02 15:16
2009.01.25
Ответьте кто из Черкасской области


15-1227987724
isasa
2008-11-29 22:42
2009.01.25
Свободные (шаровые) DNS сервера.


15-1228144946
Layner
2008-12-01 18:22
2009.01.25
Убили форум или пропал интерес к Delphi?


2-1228500289
lusuj
2008-12-05 21:04
2009.01.25
синтаксический контроль заданного оператора




   Наверх