Parâmetros
Passagem de parâmetros entre dois form.
Dois form:
form1
form2
No form1 existem dois botões:
button1
button2
no form2 escrevo:
Public
variavel : integer;
No OnClick do primeiro botão escrevo:
form2.variavel := 1;
No OnClick do segundo botão escrevo:
form2.variavel := 2;
No form2 escrevo:
if variavel = 1 then
resultado 1
else
resultado 2
Me respondam, a variável sempre está vindo como = 0!
Porque não funciona dessa forma e como seria a melhor forma de passar esses parâmetros entre os form? Já vi um tópico aqui no forum que trata da questão mas não gostei da forma como foi feito. Alguém poderia me dizer como fazer, mais ou menos nos moldes acima?
Grato!
Dois form:
form1
form2
No form1 existem dois botões:
button1
button2
no form2 escrevo:
Public
variavel : integer;
No OnClick do primeiro botão escrevo:
form2.variavel := 1;
No OnClick do segundo botão escrevo:
form2.variavel := 2;
No form2 escrevo:
if variavel = 1 then
resultado 1
else
resultado 2
Me respondam, a variável sempre está vindo como = 0!
Porque não funciona dessa forma e como seria a melhor forma de passar esses parâmetros entre os form? Já vi um tópico aqui no forum que trata da questão mas não gostei da forma como foi feito. Alguém poderia me dizer como fazer, mais ou menos nos moldes acima?
Grato!
Peununes
Curtidas 0
Respostas
Peununes
25/07/2005
Passei o código para receber os parâmetros para o OnShow e funcionou!
Receber os parâmetros no OnCreate não funciona!!!
Vai entender!!!
Receber os parâmetros no OnCreate não funciona!!!
Vai entender!!!
GOSTEI 0
Davicarrano
25/07/2005
nao funcionou no Oncreate porque quando o form1 é criado o 2 ainda nao existe e pelo fato de ta acessando valores de um form(no caso o form2) que nao existe, nao funciona... no Onshow os 2 forms já existem....
GOSTEI 0
Peununes
25/07/2005
Pois é, fiz um teste aqui e funcionou mas no sistema que estou dando manutenção não funciona! Não sei o que é, a variável sempre vem vazia!!!
Olha só o código:
frmAtendimentos.Release;
Application.CreateForm(TfrmAtendimentos, frmAtendimentos);
frmAtendimentos.iFlagAtendimentoPendencia := ´1´;
frmAtendimentos := nil;
Tá faltando aguma coisa aí?
Valeu pela atenção
Olha só o código:
frmAtendimentos.Release;
Application.CreateForm(TfrmAtendimentos, frmAtendimentos);
frmAtendimentos.iFlagAtendimentoPendencia := ´1´;
frmAtendimentos := nil;
Tá faltando aguma coisa aí?
Valeu pela atenção
GOSTEI 0
Rjun
25/07/2005
Não entendi. Você cria o form, depois deixa ele com nil? Pq?
GOSTEI 0