Chamando forms a partir de uma String previamente criados

23/04/2020

Boa noite,

Tenho uma aplica��o com v�rios Forms previamente criados pela plataforma do deplhi 2010 e s�o chamados pelo Delphi atraves de um Menu.
Ex:
Cadastro de Clientes:
CadastroCliente:=TcadastroCliente.Create(Self);
CadastroCliente.Showmodal;
CadastroCliente.Release;

Cadastro de Produtos:
CadastroProduto:=TcadastroProduto.Create(Self);
CadastroProduto.Showmodal;
CadastroProduto.Release;

� assim que eu chamo eles na minha aplica��o. Agora quero ter um cadastro de op��es onde eu vou cadastrar o programa e o Form que deve
ser chamado e criado dinamicamente. Nesta tabela vou ter um titulo e o nome do Form Ex:
Titulo: Cadastro geral de produtos
Form: CadastroProduto
Titulo: Cadastro geral de Clientes
Form: CadastroCliente

Como devo proceder para criar e mostrar estes Forms dinamicamente em tempo de execu��o.

Obr.

Paulo

Curtir t�pico + 0

Responder

Posts

26/04/2020

Emerson Nascimento

tente assim:

procedure TFormPrincipal.CriaFormPeloNome(const FrmNome: string);
var
  FrmClass: TFormClass;
  Frm: TForm;
begin
  try
    FrmClass := TFormClass(FindClass('T'+FrmNome));
    Frm := FrmClass.Create(Application);
    Frm.ShowModal;
    Frm.Release;
  except
    on E:EClassNotFound do
    begin
      ShowMessage('Classe n�o encontrada.'+Chr(13)+
                  'Para utiliza��o de CriaFormPeloNome() � necess�rio registrar a classe.');
    end;
  end;
end;

a sintaxe �:

CriaFormPeloNome('CadastroProduto');

para funcionar voc� precisa registrar a classe. isso � poss�vel adicionando

initialization
  RegisterClass(ClasseDoForm);

em cada formul�rio, no final do c�digo, imediatamente antes do end.
por exemplo:
no form CadastroProduto:

initialization
  RegisterClass(TCadastroProduto);

no form CadastroCliente:

initialization
  RegisterClass(TCadastroCliente);

e assim por diante, em todos os forms que deseja chamar a partir da fun��o CriaFormPeloNome().
ou, de forma mais simples, registrando os formul�rios no evento OnCreate do teu form principal. assim voc� pode registrar todos de uma vez.

procedure TFormPrincipal.FormCreate(Sender: TObject);
begin
  RegisterClass(TCadastroCliente);
  RegisterClass(TCadastroProduto);
  [...]
end;

note que uma forma elimina a outra. se optar por registrar pelo OnCreate do form principal, n�o � necess�rio registrar em cada form.

Responder

Gostei + 0