Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-04-2011
coquycu coquycu is offline
No confirmado
 
Registrado: jul 2003
Ubicación: Camaguey, Cuba
Posts: 4
Poder: 0
coquycu Va por buen camino
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.
Responder Con Cita
  #2  
Antiguo 14-04-2011
Avatar de JoseAntonio
JoseAntonio JoseAntonio is offline
Miembro
 
Registrado: abr 2006
Ubicación: Lima - Ciudad de los Reyes.
Posts: 87
Poder: 19
JoseAntonio Va por buen camino
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
__________________
nuestro carácter está reflejado en cada línea de código que escribimos.
Responder Con Cita
  #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
Poder: 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
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Convertir string a Taction erasmorc OOP 1 17-12-2009 17:44:23
Enable BCD a false en Delphi 2007 mavm03 Conexión con bases de datos 0 09-02-2009 12:47:40
TACtion con icono Top Neeruu Varios 5 02-09-2008 02:15:00
Enable:=False; Pero sin que se me ponga gris. nicolasdom Varios 4 13-01-2005 16:43:35
acceder a los campos de una tabla Access nesetru Conexión con bases de datos 3 05-01-2004 12:51:35


La franja horaria es GMT +2. Ahora son las 13:35:06.


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
Copyright 1996-2007 Club Delphi