Comunicação entre forms (Units)
Olá a todos.
Tenho dois forms:
Form1(Unit1) e Form2(Unit2).
No form1 tem um Edit1 e no form2 tem um edit1 tambem
Preciso que quando eu clique em um botão no form1 abra o form2 mas com Edit1 do form2 abra com o que estiver escrito no edit1 do Form1.
Se alguem puder ajudar desde já agradeço.
Tenho dois forms:
Form1(Unit1) e Form2(Unit2).
No form1 tem um Edit1 e no form2 tem um edit1 tambem
Preciso que quando eu clique em um botão no form1 abra o form2 mas com Edit1 do form2 abra com o que estiver escrito no edit1 do Form1.
Se alguem puder ajudar desde já agradeço.
Michele
Curtidas 0
Respostas
Godzilla_xf
01/11/2007
Olá a todos.
Tenho dois forms:
Form1(Unit1) e Form2(Unit2).
No form1 tem um Edit1 e no form2 tem um edit1 tambem
Preciso que quando eu clique em um botão no form1 abra o form2 mas com Edit1 do form2 abra com o que estiver escrito no edit1 do Form1.
Se alguem puder ajudar desde já agradeço.
Ola, bem vc pode fazer assim:
No botão do form 1 vc coloca o seguinte codigo:
try form2 := tform2.create(application); form2.edit1.text := form1.edit1.text; form2.showmodal; finally form2.free end;
espero que isso ajude
GOSTEI 0
Jarabeucp
01/11/2007
isso que o colega falou funciona mais tem alguns questões que tem que ser levada enconta.
1 := quando o form2 abrir o form1 vai sumir?
2 := vc cria seu form ou só chama ele?
se vc não cria o form só o chama o código fica mais ou menos assim.
se eu entendio que vc quer é mais ou menos isso que vc tem que fazer.
boa sorte!! qualquer coisa poste aki.
1 := quando o form2 abrir o form1 vai sumir?
2 := vc cria seu form ou só chama ele?
se vc não cria o form só o chama o código fica mais ou menos assim.
//codigo colocado em um buttun no form1 begin form2.ShowModal; //chama o form2 // iguala o edit1 do form2 com o q ta escrito no edit1 do form1 Form2.Edit1.text := Form1.Edit1.text; Form1.Edit1.Clear; // limpa o edit1 do form1 end;
se eu entendio que vc quer é mais ou menos isso que vc tem que fazer.
boa sorte!! qualquer coisa poste aki.
GOSTEI 0