Procedure para criar form passado por parâmetro

Delphi

09/05/2005

Bom dia a todos!

Estou desenvolvendo um projeto, e estou fazendo uma procedure
que cria para mim qualquer form que eu passar como parâmetro.

Por exemplo:

procedure CriaForm (Form : TForm);
begin
Form := Form.Create(Form);
Form.ShowModal;
Form.Free;
end;

Vendo o código, parece que está correto a lógica. Porém, quando
eu passo um form como parâmetro, o que acontece é que ele
somente cria um objeto Form vazio. Por exemplo, se eu passar
um formulário de cadastro (FrmCadastro), ele somente irá
criar um form vazio.

Quem poder ajudar..ficarei agradecido.

Um cordial abraço,

NetCrusher


Netcrusher

Netcrusher

Curtidas 0

Respostas

Massuda

Massuda

09/05/2005

...se eu passar um formulário de cadastro (FrmCadastro)...
Esse FrmCadastro foi criado previamente ou não?

Estou desenvolvendo um projeto, e estou fazendo uma procedure que cria para mim qualquer form que eu passar como parâmetro. Por exemplo...
Uma possível implementação seria
procedure CriaForm(ClasseDoForm: TFormClass);
var
  Form: TForm;
begin
  Form := ClasseDoForm.Create(Application.MainForm);
  Form.ShowModal;
  Form.Free;
end;

// exemplo de uso
// CriarForm(TFrmCadastro);



GOSTEI 0
Netcrusher

Netcrusher

09/05/2005

Opa Massuda.. funcionou.

Muito obrigado..

Eu estava passando o TForm como parâmetro e não a classe do mesmo(FormClass)


GOSTEI 0
POSTAR