Fórum Dúvida de como quot;Chamarquot; um Form ???? #193293
06/11/2003
0
Oi Galera, tô meio enrolado...
Tenho um menu montado com o ActionManager e ActionMainMenuBar, e pra cada uma das opções desse menu existe um Action1, Action2 etc...
e em cada action coloquei no evento ´OnExecute´= ActionChamarFormExecute, pra abrir um form, criei um vetor com os nomes dos form´s para abrir ´ChamarForms:={FCadClientes, FCadProdutos,...}
Cada um dos Action´s coloquei o numero correspondente a posição do do vetor no ´tag´ e ficou assim:
procedure TForm1.ActionChamarForm...
var
Formulario: TFormClass;
opcao: integer;
begin
opcao:=ActionMainMenu1(Sender).Tag;
Formulario:=ChamarForms[Opcao];
Formulario.Showl;
end;
será q vocês, q são ´FERAS´, podem me ajudar
agradeço...
Tenho um menu montado com o ActionManager e ActionMainMenuBar, e pra cada uma das opções desse menu existe um Action1, Action2 etc...
e em cada action coloquei no evento ´OnExecute´= ActionChamarFormExecute, pra abrir um form, criei um vetor com os nomes dos form´s para abrir ´ChamarForms:={FCadClientes, FCadProdutos,...}
Cada um dos Action´s coloquei o numero correspondente a posição do do vetor no ´tag´ e ficou assim:
procedure TForm1.ActionChamarForm...
var
Formulario: TFormClass;
opcao: integer;
begin
opcao:=ActionMainMenu1(Sender).Tag;
Formulario:=ChamarForms[Opcao];
Formulario.Showl;
end;
será q vocês, q são ´FERAS´, podem me ajudar
agradeço...
Armando
Curtir tópico
+ 0
Responder
Posts
06/11/2003
Caninha51
Não sei se entendi direito, mas tenta fazer assim...
Esse ChamarForms deve ser um array de strings com o nome dos forms...
(application.FindComponent(ChamarForms[Opcao]) as TForm).Show;
Deve ter outras maneiras, mas no momento soh me veio isso em mente!!hehe...
Espero que te ajuda!
Falow cara!!
Caninha51
Esse ChamarForms deve ser um array de strings com o nome dos forms...
(application.FindComponent(ChamarForms[Opcao]) as TForm).Show;
Deve ter outras maneiras, mas no momento soh me veio isso em mente!!hehe...
Espero que te ajuda!
Falow cara!!
Caninha51
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)