[delphi-br] Re: função para criar forms

Thu, 29 Dec 2005 05:29:16 -0800 

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 >>>>>

<*> 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

Responder a