Acho que tem sim, mas antes disso, da um procurada nas mensagens anteriorres do grupo pra ve se vc acha a rotina que um colega nosso fez, procure por "criar form pelo nome".
Em 23/04/07, Doretto <[EMAIL PROTECTED]> escreveu: > > Eu entendi a sua Funcao.. mas eu queria criar um componente e nele criar > este form e quando eu usar este componente > vou passar como uma propriedade o nome do form e no componente cria-lo, > teria comp ? > > ----- Original Message ----- > From: Eduardo Silva dos Santos > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Sent: Monday, April 23, 2007 12:39 PM > Subject: Re: [delphi-br] Funcao para criar e executar form > > Segue minha procedure, é simples mas reduziu bastante o código > > //Cria um Form > procedure ShowForm( TFrm:TFormClass; Frm:TForm ); > begin > try > if not Assigned( Frm ) then > Frm := TFrm.Create( Application ); > Frm.ShowModal; > finally > FreeAndNil( Frm ); > end; > > end; > > usa-se ShowForm( TFrmClientes, FrmClientes ); > > Em 23/04/07, Doretto <[EMAIL PROTECTED]<doretto%40qualitysystem.com.br>> > escreveu: > > > > Tem como vc me passar ? > > > > Abraço. > > > > ----- Original Message ----- > > From: Eduardo Silva dos Santos > > To: delphi-br@yahoogrupos.com.br > > <delphi-br%40yahoogrupos.com.br><delphi-br%40yahoog > rupos.com.br> > > Sent: Friday, April 20, 2007 6:17 PM > > Subject: Re: [delphi-br] Funcao para criar e executar form > > > > tem sim, ha um tempo atraz alguém aqui da lista fez, > > > > so que pra criar e exibir o form apenas pelo nome, todos os forms da sua > > aplicação terão que ser registrados pelo método RegisterClass( ), só > assim > > a rotina funcionava, > > > > eu criei uma rotina generica pra min onde passo dois parametros: > ShowForm( > > TFrm_Cadastro, FrmCadastro ); > > não é nada expetacular, mas como tenho mais de 300 forms em uma > aplicação > > nao dava pra sair registrando tudo. > > > > Em 20/04/07, Doretto <[EMAIL PROTECTED]<doretto%40qualitysystem.com.br> > <doretto%40qualitysystem.com.br>> > > escreveu: > > > > > > Gostaria de criar uma funcao para criar e executar um form > > > > > > Eu mandaria como parametro STRING o nome do form (EX: CADCLI) e a > funcao > > > criaria e o executaria > > > > > > Tem Como ? > > > > > > Abraço > > > > > > Doretto. > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > -- > > Eduardo Silva dos Santos > > DRD Sistemas. > > (27) 3218-4201 > > MSN: [EMAIL PROTECTED] <eduardo.drd%40gmail.com> <eduardo.drd% > 40gmail.com> > > Site: http://www.drdsistemas.com/ > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > Eduardo Silva dos Santos > DRD Sistemas. > (27) 3218-4201 > MSN: [EMAIL PROTECTED] <eduardo.drd%40gmail.com> > Site: http://www.drdsistemas.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas] > > > -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas]