Typecast em um ActionList
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
Curtidas 0
Respostas
Motta
12/08/2004
exemplo
TAction(ActionList1.Actions[i]).enabled := True;
TAction(ActionList1.Actions[i]).enabled := True;
GOSTEI 0
Eduprp
12/08/2004
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.
GOSTEI 0
Motta
12/08/2004
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 !!
...
GOSTEI 0