Форум "Delphi"

Паскаль, Делфи

#0 ID © 13.03.07 09:29:26 - 14.03.07 10:15:52

как извлечь TAction из ActionList

Как извлечь TAction из TActionList ?
Необходимо добраться до свойства Enable определенного экшена
ActionList1.Actions[i].???? - на сколько я понял не проходит

#1 Паша © 13.03.07 10:19:02

кусок кода из моего актионлиста, наследника оригинального. устанавливает енаблед через актионлист всему своему содержимому. тупо и фанатично.

  TmActionList = class(TActionList)
  private
   FEnabled: Boolean;
   procedure SetEnabled(const Value: Boolean);
  published
   property Enabled: Boolean read FEnabled write SetEnabled default true;

*************

procedure TmActionList.SetEnabled(const Value: Boolean);
var
  i: Integer;
begin
  FEnabled := Value;
  for i:=0 to self.ActionCount-1 do
   TCustomAction(self.Actions[i]).Enabled:=FEnabled;
end;

учитесь дети, пока я жив! гыгы

#2 Deep © 13.03.07 10:47:46

>#1 Паша ©
>> фанатично

#3 Паша © 13.03.07 10:56:34

> Deep ©

дык, а шо? фанатичное приведение типов. поскоку в листе сидят актионзы, замаскированные под далеких предков, у которых енабледа в помине нету, то надо приводить к потомкам, у которых енаблед есть.

#4 ID © 13.03.07 11:13:30

спасибо!

#5 Deep © 13.03.07 15:41:02

> Паша ©
да все нормально, просто словечко в твоем контексте очень понравилось. Ты случаем в каментах к проге не пишешь

//"Аллах акбар"

Написать ответ