Amigo, esta função funciona se o form estiver no auto create forms....ou se clicarmos duas vezes no local da chamada do form (quando este não estiver no auto create).
Tem algum meio de fazer com que ela funcione ao ser chamada apenas uma vez? (não estando no auto create) -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Kerchenn Elteque Enviada em: quinta-feira, 29 de dezembro de 2005 10:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: função para criar forms Paulo da uma olhada nesta função Alexandre da Silva 3 Maio 14:20 mostrar opções De: "Alexandre da Silva" <[EMAIL PROTECTED]> - Localizar mensagens deste autor Data: Tue, 3 May 2005 13:20:55 -0300 Local: Ter 3 Maio 2005 14:20 Assunto: Re: função para criar formulário Responder ao autor | Encaminhar | Imprimir | Mensagem individual | Mostrar original | Comportamento abusivo - Denuncie //=========Função para criar formulário em tempo de execução==================== procedure TForm1.Criaformulario(frmFromulario : TFormClass); var Found,i : Integer; begin // Verifica se o formulario ja existe Found := -1; for i := 0 to Screen.FormCount - 1 do begin if Screen.Forms[i] is frmFromulario then begin Found := i; end; end; // Caso ja exista ele chama o formulario if Found >= 0 then begin Screen.Forms[Found].Show; Screen.Forms[Found].WindowState := wsNormal; end else begin // Se não existe ele cria o formulario frmFromulario.Create(Application); end; end; //==================================================================== ========== // Utilize assim CriaFormulario(TForm2); //==================================================================== ===== ****************************************** --- Em delphi-br@yahoogrupos.com.br, "pcinfowave" <[EMAIL PROTECTED]> escreveu > > Ola... > > Uso em meu sistema um procedimento padrão p/ criação de forms, > Ex: > > Screen.Cursor := crHourGlass; > if CadMaterial = nil then > CadMaterial := TCadMaterial.Create(Self); > AoCriar(Sender); > CadMaterial.Show; > Screen.Cursor := crDefault; > > Agora, gostaria de criar uma função que me economizasse ter que > digitar as 6 linhas toda vez q for criar um novo form. > > Entao, cum uma função e um parametro que trocasse apenas o nome do > form a ser criado, facilitaria bem mais o desenvolvimento. > > Alguem pode me ajudar a criar esta função, pois tentei passar o noe > do form como uma string e não aceitou, uma vez que deu o erro > incompatible types: 'string' and 'pointer' > > Como faço essa conversão? > > Se alguem ajudar, ficarei muito grato! > > []´s > Paulo > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE ---------------------------------------------------------------------------- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __________ NOD32 1.1342 (20051228) Information __________ This message was checked by NOD32 antivirus system. http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html