Retornar dados de um formul�rio para outro

Question

Ol� pessoal j� procurei por v�rios sites sobre o assunto mas n�o estou conseguindo realizar essa tarefa que aparentemente � muito simples...� o seguinte tenho um formul�rio de cadastro e nele um bot...

Jaime Santos · Answer

Crie uma var p�blica no form que tem a profiss�o e antes de aplicar o terminate neste form passe a var.

Exemplo:

Form das Profiss�es:
var
Prof: string; //public

form do cadastro:

chama form das profiss�es
showmodal ou show nele....//dentro dele trata tudo e antes do close dele a var global recebe a profiss�o
var local do cadastro recebe a var global do form profiss�es
FreeAndNil(form cadastro);

Att.

Alexsandro · Answer

Ol� Jaime, obrigador por sua aten��o, tentei fazer da forma que voc� me passou, no entanto ainda n�o deu certo, est� dando access violate, fiz assim

no formul�rio que das profiss�es:

criei uma vari�vel publica no formul�rio de cadastro e uma vari�vel publica no formul�rio das profiss�es

vari�veis.

frm_cadastro -> profissao
frm_profissoes -> profiss

criei um bot�o no formul�rio das profiss�es e no evento onclick:

profiss := listview1.selected.caption;
frm_cadastro.profissao := profiss;
close;

ao clicar no bot�o est� dando access violation at address

Alexsandro · Answer

desculpe esqueci de colocar que antes do close do c�digo acima, eu coloquei o FreeAndNil(frm_cadastro)

o c�digo ficou assim:

profiss := listview1.selected.caption;
frm_cadastro.profissao := profiss;
FreeAndNil(frm_cadastro)
close;

Ariel Morgan · Answer

cria um procedimento pra armazenar os dados...

procedure form.capturarProf;
begin
CampoRecebeValor.text := dataModule.tableCAMPO.value;
end;

depois l� no clique do bot�o... chamando o formul�rio em tempo de execu��o
e no bot�o:
whit botao do
begin
onClick := capturaProf();
end;

tenta isso... qualquer coisa posta ai ;)

Ricardo Araujo · Answer

Colega conseguiu resolver seu caso?...

Alexsandro · Answer

Caro Rbbarreto ... ainda n�o... tem alguma id�ia?...

Ariel Morgan · Answer

faz o Seguinte amigo:Abra o formul�rio em tempo de execu��o como falei..voc� vai ter um procedimento que v� armazenar os dados pra depois carreg�-los nos edits:procedure form1.capturarProf;begin  CampoRecebeValor.text := dataModule.tableCAMPO.value;end;certo?bom, no click do bot�o pra chamar ou formul�rio ou no click do edit que chamar� determinado formul�rio tenta o seguinte:procedure TForm1.Button1Click(Sender: TObject);var  ChamaForm: TForm2; //Este seria o formul�rio com as fun��es, profiss�es!begin    try        ChamaForm := TForm2.Create(Application);//cria o formul�rio         ChamaForm.ShowModal;                whit Form2do        begin             Button.OnClick := CapturarProf;        end;    finally         FreeAndNil(ChamaForm);    end;  end;Vai ter que adaptar a sua necessidade e fazer o fechamento da tela ao clicar no OKqualquer coisa manda um email!...

Alexsandro · Answer

opa Ariel... obrigado por responder... ainda n�o testei mais assim que puder retornaria a resposta......

Alexsandro · Answer

Ariel Morgan queira me desculpar por minha ignor�ncia a respeito do assunto, seu que sua postagem est� bem explicada, no entanto n�o estou conseguindo fazer dessa forma...

estou te enviando o link do que eu fiz como teste e n�o obtive sucesso.

http://www.4shared.com/rar/tw6aQXrgba/Teste.html

agrade�o muito se me informar onde errei... grato...

Ricardo Araujo · Answer

Caro amigo, ire fazer uma exemplo e disponibilizar no dropbox tudo bem?voc� aceita baixo o exemplo ?...

Alexsandro · Answer

claro que sim... muito obrigado......

Ricardo Araujo · Answer

segue o link do dropbox abaixo:https://www.dropbox.com/s/s2u1jh6cgiv4h2d/Exemplo%20Simples.rar?dl=0qualquer coisa me avise....

Alexsandro · Answer

O companheiro muito obrigado mesmo, � exatamente o que preciso... cara me desculpe por minha ignor�ncia como disse no in�cio coisa simples, no entanto n�o estava conseguindo.. obrigado mesmo......

Ricardo Araujo · Answer

Caro colega, n�o se preocupe espero que o exemplo tenha te ajudado, isto � o mais importante, qualquer coisa estamos ai..Acho que este caso est� fechando certo ?...

F�rum Retornar dados de um formul�rio para outro #521983