Montagem do metodo

Question

Utilizo esse codigo para abrir um Form MDI, mas eu gostaria de criar um metodo e passar por parametro o Form, como eu poderia montar esse metodo?

  if (FPedidos = nil) then
    Application.CreateForm(TFPedidos,FPedidos);

no OnClose do Form:

  Action := caFree;
  Release;
  FPedidos := nil;

J�der Medeiros · Answer

Com vari�vel n�o tem jeito porque n�o d� para pegar qual a classe da vari�vel se ela n�o estiver com um objeto instanciado.

Mas, d� para criar um procedimento para criar um formul�rio passando a classe do formul�rio:

Function Formulario(pClass: TFormClass): TForm; begin Application.CreateForm(pClass,Result); end;

Com rela��o � libera��o do mesmo, cada formul�rio ter� que implementar isto em seu evento, a n�o ser que voc� crie uma classe que tenha esse padr�o de procedimento no evento onClose e voc� herde seus formul�rios dele.

F�rum Montagem do metodo #343363