Vari�vel em outro form

Question

Tenho um form de consulta, o qual gostariea que fosse para qualquer consulta. A dorma de eu contriolar, qual o fprmulario que o chamou seria por uma vari�vel, mas como carregar vari�vel em oputro form...

Zimair · Answer

voce deve fazer uso do unit do formulario de consulta e ent�o chama-lo.

+ ou - assim

[i:1ac7c54e99]form2.variavel:=1;
fom2.showmodal;[/i:1ac7c54e99]

voce pode melhorar o codigo para que seja criado em tempo de excu��o.

Paulo · Answer

D� erro no nome da vari�vel. A vari�vel no form onde estou chamando, d� erro.

try frmCons_Prod:=TfrmCons_Prod.Create(Self); frmCons_Prod.chd:=1; frmCons_Prod.Showmodal; finally FreeAndNil(frmCons_Prod); end;

Marco Salles · Answer

Mas qual o problema de voce ter uma vari�vel Publica para receber esse valor.....E aasocia-la a cada form que chama o FormConsulta

Por exemplo , na tela de venda que chama o FormConsulta a Vari�vel Publica do FormPrinciplai recebe1 , se fosse o FormCadstro que chamasse o FormConsulta a Varia�vel Publica do Form Principal recebe 2
etc...

Esta vari�vel estaria no form consulta.

Mias f�cil esta vari�vel estar no Form Principal

Zimair · Answer

Eu concordo com o colega, se a variavel estiver em um local em comu sera mas facio. pode ser no forme principal ou em uma unit de classe.

mas bem lembrado essa variavel tem que ser publica e n�o privado.
o melhor e sempre iniciar essa variavel antes de usala.

voc� pode criar uma procedure para simplificar a chamado do forme se ele for chamado varias vezes.

ex.

procedure classe.nome(x:integer);
begin
forme:=Tforme.Create(Self);
try
forme.var:=valor; //local que a variavel foi declarada.
forme.showmodal;
finally
forme.free;
forme:=nil;// metodo que preferir
end;
end;
lembrado que a procedure tem que ser publica.

assim bastaria chamar a procedure para iniciar a consulta. pasando como referencia a variavel.

Michelli88 · Answer

Ta faltando vc declarar o UNIT no form q vc quer chamar a variavel, por exemplo:

A variave esta no form1 e vc quer chama-la no form2.
No form2, coloque depois de Implementation:

Uses U_Form1; // nome da unit

F�rum Vari�vel em outro form #285229