função para abrir formulário

Delphi

10/06/2004

colegas de fórum, estava interessado em criar uma função para criar e executar os formulários através parâmetros enviados a mesma.

function abrejanela(Frm :TForm) :Boolean;
Begin

//é aqui a dúvida tentei criar assim, como abaixo mas não deu certo
Frm.Create := Frm.Create(Application);
Frm.Show;

end;


alguém poderia dar dicas.

Valeu!!


Universodosoftware

Universodosoftware

Curtidas 0

Respostas

Njunior

Njunior

10/06/2004

colegas de fórum, estava interessado em criar uma função para criar e executar os formulários através parâmetros enviados a mesma. function abrejanela(Frm :TForm) :Boolean; Begin //é aqui a dúvida tentei criar assim, como abaixo mas não deu certo Frm.Create := Frm.Create(Application); Frm.Show; end; alguém poderia dar dicas. Valeu!!


function AbreJanela(Frm:TForm): Boolean;
begin
 Frm.Create(Application);
 Frm.Show;
end;



GOSTEI 0
Universodosoftware

Universodosoftware

10/06/2004

estou utiizando o delphi 5 e win xp, e está acontecendo de dar erro.

se alguém puder testar este código acima mostrado pelo nosso amigo para ve se funciona, irá fazer um grande favor, ou mesmo, outra linha de código q chame a função dinamicamente para criar formulários.


o código iniciar comum é o seguinte:

If form1 = nil then
form1 := Tform1.create(application);

form1.show;


GOSTEI 0
Dopi

Dopi

10/06/2004

O problema é que você deve passar para a funçao uma Classe e nao uma Variavel já instanciada...

experimenta ver se funciona assim...

function AbreJanela(TFrm: TFormClass ): Boolean;
begin

with TFrm.Create(Application) do
begin
Show;
end


Na Chamada:


AbreJanela( Tform1 ) ;


GOSTEI 0
POSTAR