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 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]> 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> > 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>> > 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> > 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] [As partes desta mensagem que não continham texto foram removidas]