Fórum Typecast em um ActionList #246601
12/08/2004
0
Colegas
Estou fazendo um menu dinâmico, tenho um ActionList com todas as opções do menu.
Tenho uma tabela no banco de dados que irá criar esse menu e associar cada item do menu a uma ação do ActionList.
Como faço para converter uma string (nome da action) em um tipo TBasicAction para que eu possa associar a propriedade action do meu item de menu.
Obrigado
Eduardo
Estou fazendo um menu dinâmico, tenho um ActionList com todas as opções do menu.
Tenho uma tabela no banco de dados que irá criar esse menu e associar cada item do menu a uma ação do ActionList.
Como faço para converter uma string (nome da action) em um tipo TBasicAction para que eu possa associar a propriedade action do meu item de menu.
Obrigado
Eduardo
Eduprp
Curtir tópico
+ 0
Responder
Posts
12/08/2004
Motta
exemplo
TAction(ActionList1.Actions[i]).enabled := True;
TAction(ActionList1.Actions[i]).enabled := True;
Responder
Gostei + 0
12/08/2004
Eduprp
Ola colega
Sim é uma opção, só que a questão é mais ou menos a seguinte:
Item:= TMenuItem.Create(Menu);
Menu.Add(Item);
Item.Name:= ´mnu_1´;
Item.Caption:= ´teste´;
Item.Action:= ´actTeste´ ---> Aqui quero converter a string em TAction
Obrigado.
Sim é uma opção, só que a questão é mais ou menos a seguinte:
Item:= TMenuItem.Create(Menu);
Menu.Add(Item);
Item.Name:= ´mnu_1´;
Item.Caption:= ´teste´;
Item.Action:= ´actTeste´ ---> Aqui quero converter a string em TAction
Obrigado.
Responder
Gostei + 0
12/08/2004
Motta
Ola colega
Sim é uma opção, só que a questão é mais ou menos a seguinte:
Item:= TMenuItem.Create(Menu);
Menu.Add(Item);
Item.Name:= ´mnu_1´;
Item.Caption:= ´teste´;
Item.Action:= ´actTeste´ ---> Aqui quero converter a string em TAction
Obrigado.
Action é uma TAction, passe uma
...
Action := actTeste;// sem aspas , sõ o nome do objeto !!
...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)