Fórum função para abrir formulário #237114
10/06/2004
0
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
//é 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
Curtir tópico
+ 0
Responder
Posts
10/06/2004
Njunior
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;
Responder
Gostei + 0
15/06/2004
Universodosoftware
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;
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;
Responder
Gostei + 0
15/06/2004
Dopi
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 ) ;
experimenta ver se funciona assim...
function AbreJanela(TFrm: TFormClass ): Boolean;
begin
with TFrm.Create(Application) do
begin
Show;
end
Na Chamada:
AbreJanela( Tform1 ) ;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)