Res: [delphi-br] Retornar Valor de um Form

Mon, 08 Sep 2008 07:46:58 -0700 

Use property.

Crie no Form2 um property.

Ao fechar o form2 você alimenta essa property.
Ex:

  private
    fValorDigitado : String;
  public 
   property ValorDigitado : String read fValorDigitado;
  end;


no botão de OK ou onde cahar melhor coloque:
fValorDigitado := Edit1.Text; // Supondo que vai vir de um edit


no form1 você mais ou menos assim:

var
   vObjForm2 : TForm2;
   vValor : String; // Estou supondo que é uma string
begin
   vObjForm2 := TForm2.Create(self);
  try
   vObjForm2.ShowModal;
   vValor := vObjForm2.ValorDigitado; // Estou supondo que sua property 
chama-se ValorDigitado;
  finally
   FreeAndNil(vObjForm2);
  end;
end;


 Luciano Calenzani Simões





----- Mensagem original ----
De: Giovani <[EMAIL PROTECTED]>
Para: DELPHI <delphi-br@yahoogrupos.com.br>
Enviadas: Segunda-feira, 8 de Setembro de 2008 11:38:48
Assunto: [delphi-br] Retornar Valor de um Form


Bom dia a todos,

Tenho DOIS Forms, o Form1 chama o Form2 que deve retornar um valor para 
o Form1.
Em um EDIT do Form1 eu quero que retorne um valor do Form2.

Att.

Giovani    


      Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Responder a