Montagem do metodo

Delphi

18/07/2007

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;



Felipeiw

Felipeiw

Curtidas 0

Respostas

Jáder Medeiros

Jáder Medeiros

18/07/2007

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.


GOSTEI 0
POSTAR