Retornar Valor de Form2 p/ form1
Oi,
Pessoal, sou iniciante em delphi e gostaria que vcs me ajudassem neste assunto que acho complicado...
Gostaria de criar uma consulta de valores no sistema tipo form1 abre form2 com uma consulta e retorna valores ao form1.
E tb form3 abre form2 com uma consulta e retorna valores ao form3.
O PROBLEMA É FORM2 IDENTIFICAR QUEM PEDIU A INFORMAÇÃO FORM1 OU FORM3... GOSTARIA DE FAZER UMA FUNÇÃO PARA ISTO...
Não sei como fazer isto alguem pode me ajudar ?
Grato,
Edival[color=red][/color][size=18][/size][b][size=18][/size][/b]
Pessoal, sou iniciante em delphi e gostaria que vcs me ajudassem neste assunto que acho complicado...
Gostaria de criar uma consulta de valores no sistema tipo form1 abre form2 com uma consulta e retorna valores ao form1.
E tb form3 abre form2 com uma consulta e retorna valores ao form3.
O PROBLEMA É FORM2 IDENTIFICAR QUEM PEDIU A INFORMAÇÃO FORM1 OU FORM3... GOSTARIA DE FAZER UMA FUNÇÃO PARA ISTO...
Não sei como fazer isto alguem pode me ajudar ?
Grato,
Edival[color=red][/color][size=18][/size][b][size=18][/size][/b]
Neosudestino
Curtidas 0
Respostas
Marcelo Saviski
25/03/2004
você pode criar uma variavel global [i:a4b824a63a](abaixo do var NomeForm: TNomeForm;)[/i:a4b824a63a]
quando fechar o Form2, no evendo OnClose, colocar o valor de retono nessa variavel
ex:
no OnClose:
depois, você chama o form2 com ShowModal;
assim:
quando fechar o Form2, no evendo OnClose, colocar o valor de retono nessa variavel
ex:
var ValorRetorno: string;
no OnClose:
ValorRetorno := Edit1.Text;
depois, você chama o form2 com ShowModal;
assim:
Form2.ShowModal; ShowMessage(ValorRetorno);
GOSTEI 0