Ver Mensaje Individual
  #3  
Antiguo 14-04-2011
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Hay algo que no entendí ...¿recorrer un objeto TAction?

Yo lo que uso es un TActionList, que si puedo recorrer asi:
Código Delphi [-]
for i:=0 to miActionList.ActionCount -1 do
  miActionList.Actions[i].Enabled :=  (miActionList.Actions[i].Tag = 1);

o puedes recorrer los componentes de tu formulario para buscar los objetos TAction para habilitarlos si procede:

Código Delphi [-]
for i:=0 to Form1.ComponentCount -1 do
begin
  if (Form1.Components[i] is TAction) then
    TAction(Form1.Components[i]).Enabled :=  (Form1.Components[i].Tag = 1); 
end;
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...

Última edición por defcon1_es fecha: 14-04-2011 a las 18:45:54.
Responder Con Cita