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...


Armando

Armando

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar