Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Acceder a campos tag y enable en TAction (https://www.clubdelphi.com/foros/showthread.php?t=73304)

coquycu 13-04-2011 20:58:28

Acceder a campos tag y enable en TAction
 
Hola a todos:

Llevo rato buscando en los foros y no he encontrado algo q me sirva para ubicarme :(.
Necesito recorrer un TAction buscando los campos Tag de cada accion definida y si tienen valor 1 habilitar la Accion.

es algo asi
var
acciones : TAction;

for i := 0 to acciones.(Que Campo) do
acciones.(que)[i].enable := acciones.(que)[i].tag = 1

O me pudieran remitir a alguna respuesta se lo agradeceria de antemano.

JoseAntonio 14-04-2011 08:39:52

puedes utilizar el componente actionmanager que es como un contenedor de varios taction ahi puedes llenar el evento onexecute y deshabilitar el action correspondiente segun el tag, suerte salu2

defcon1_es 14-04-2011 18:42:36

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;


La franja horaria es GMT +2. Ahora son las 21:05:25.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi