[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 -- Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.
[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 -- Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.
Res: [delphi-br] Retornar Valor de um Form
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]
Re: [delphi-br] Retornar Valor de um Form
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. A forma mais simples é: Form1.Valor := Form2.Edit1.Text; A forma correta (bom estilo de programação): type TForm2 = class(TForm) ... private function GetValor: String; procedure SetValor(Value: String); public property Valor: String read GetValor write SetValor; end; function TForm2.GetValor: String; begin Result := Edit1.Text; end; procedure TForm2.SetValor(Value: String); begin Edit1.Text := Value; end; Usando: Form1.Valor := Form2.Valor; Dessa forma, a manutenção do sistema fica mto mais simples. Imagine que vc usa esse valor em vários lugares. Se, por um motivo qq, vc mudar o nome do componente Edit1 para edtValor, só teria que mudar o código da funcão GetValor. Dá um pouco de trabalho no inicio, mas vale a pena. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
Re: [delphi-br] Retornar Valor de um Form
Form1.edit.text:= { Valor q vc quer retornar ao formulario 1 ) ... o evento pode ser o onclose do form2... Wesley From: Giovani Sent: Monday, September 08, 2008 11:38 AM To: DELPHI Subject: [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 -- Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente. __ Information from ESET NOD32 Antivirus, version of virus signature database 3425 (20080908) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Retornar Valor de um Form
Crie uma Unit de variáveis entre outros(funções, procedures, etc), faça todos os Forms enxergarem esta Unit; pronto agora suas variáveis são Públicas, você pode atribuir ou recuperar valoes de qualquer Form. Stainle --- Em seg, 8/9/08, BandaLemuel [EMAIL PROTECTED] escreveu: De: BandaLemuel [EMAIL PROTECTED] Assunto: Re: [delphi-br] Retornar Valor de um Form Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 8 de Setembro de 2008, 11:56 Form1.edit.text := { Valor q vc quer retornar ao formulario 1 ) ... o evento pode ser o onclose do form2... Wesley From: Giovani Sent: Monday, September 08, 2008 11:38 AM To: DELPHI Subject: [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 -- Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente. __ Information from ESET NOD32 Antivirus, version of virus signature database 3425 (20080908) __ The message was checked by ESET NOD32 Antivirus. http://www.eset. com [As partes desta mensagem que não continham texto foram removidas] 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]
Re: [delphi-br] Retornar Valor de um Form
Crie uma Unit de variáveis entre outros(funções, procedures, etc), Stainle: Compartilhar procedures e funções em uma unit está OK, mas criar variáveis globais é um péssimo hábito em programação. Um caso aceitável é quando temos datamodules que são usados na aplicação inteira, mas mesmo assim ainda há casos em que é melhor criar uma instância local, pois o compartilhamento de dados, se não for bem cuidadoso, pode bagunçar a aplicação. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
Res: [delphi-br] Retornar Valor de um Form
Não é boa prática de programação criar uma unit para ter variáveis globais, mesmo funções e procedures o ideal é ter uma classe ou várias classes. Neste caso a melhor solução e trabalhar com property. Luciano Calenzani Simões - Mensagem original De: Nivaldo Stainle [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 8 de Setembro de 2008 14:24:35 Assunto: Re: [delphi-br] Retornar Valor de um Form Crie uma Unit de variáveis entre outros(funções, procedures, etc), faça todos os Forms enxergarem esta Unit; pronto agora suas variáveis são Públicas, você pode atribuir ou recuperar valoes de qualquer Form. Stainle 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]
Re: Res: [delphi-br] Retornar Valor de um Form
Boa tarde, Também não acho o ideal trabalhar com variáveis globais. Vou fazer com property mesmo. Obrigado Luciano Calenzani Simões escreveu: Não é boa prática de programação criar uma unit para ter variáveis globais, mesmo funções e procedures o ideal é ter uma classe ou várias classes. Neste caso a melhor solução e trabalhar com property. Luciano Calenzani Simões - Mensagem original De: Nivaldo Stainle [EMAIL PROTECTED] mailto:stainle2003%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 8 de Setembro de 2008 14:24:35 Assunto: Re: [delphi-br] Retornar Valor de um Form Crie uma Unit de variáveis entre outros(funções, procedures, etc), faça todos os Forms enxergarem esta Unit; pronto agora suas variáveis são Públicas, você pode atribuir ou recuperar valoes de qualquer Form. Stainle 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 http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.
Re: Res: [delphi-br] Retornar Valor de um Form
Eu estou utilizando *fsMDIChild *e não posso abrir com ShowModal, e ao criar já atribui o valor automática, não espera o close do fsMDIChild. IF (frmSelPessoa = nil) then Begin frmSelPessoa := TfrmSelPessoa.Create(Self); frmSelPessoa.select := true; edtPessoa.Text := frmSelPessoa.Valor; End; Luciano Calenzani Simões escreveu: Não é boa prática de programação criar uma unit para ter variáveis globais, mesmo funções e procedures o ideal é ter uma classe ou várias classes. Neste caso a melhor solução e trabalhar com property. Luciano Calenzani Simões - Mensagem original De: Nivaldo Stainle [EMAIL PROTECTED] mailto:stainle2003%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 8 de Setembro de 2008 14:24:35 Assunto: Re: [delphi-br] Retornar Valor de um Form Crie uma Unit de variáveis entre outros(funções, procedures, etc), faça todos os Forms enxergarem esta Unit; pronto agora suas variáveis são Públicas, você pode atribuir ou recuperar valoes de qualquer Form. Stainle 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 http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.