Dúvida de como quot;Chamarquot; um Form ????

Delphi

06/11/2003

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

Curtidas 0

Respostas

Caninha51

Caninha51

06/11/2003

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


GOSTEI 0
POSTAR