Fórum Procedure para criar form passado por parâmetro #280728

09/05/2005

0

Delphi

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

Responder

Posts

09/05/2005

Massuda

...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);



Responder

Gostei + 0

09/05/2005

Netcrusher

Opa Massuda.. funcionou.

Muito obrigado..

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar