Buscar por:

Função para criar form tanto mdichild qto normal

Código

Procedure CriaForm(FormClasse: TFormClass; var NewForm: TObject);

begin

     Try

       WaitMouse; // Veja outra dica para funções de ponteiro do mouse.

       if (TForm(NewForm) = Nil) Or (not TForm(NewForm).HandleAllocated) Then

          NewForm := FormClasse.Create(Self)

       else

          begin

           if (TForm(NewForm).WindowState = WsMinimized) Then

              TForm(NewForm).WindowState := wsNormal;

           end;

       TForm(NewForm).Show;

     Finally

       ResetMouse;

       end;

end;

//É só chamar a função assim:

       CriaForm(TFCadastro, TObject(FCadastro));