Veja como transportar valores através de parâmetros entre dois forms sem declarar variáveis públicas ou chamadas recursivas entre forms.

Suponha que você esteja no Form1 e precise chamar o Form2 passando dois parametros ("Aden" e "Rodrigues"). 1. Crie as variáveis de instancia do Form2 que receberão os dois parâmetros. 2. Reescreva o Construtor desse form, de forma receber os parametros e atribui-los às suas variáveis de instância: type   TForm2 = class(TForm)   private     Parametro1 : String;     Parametro2 : String;   public     constructor Create(AOwner : TComponent; pParm1, pParm2 : String);   end; var   Form2: TForm2; implementation Constructor TForm2.Create(AOwner : TComponent; pParm1, pParm2 : String); begin     inherited Create(AOwner);     Parametro1    := pParm1;     Parametro2    := pParm2; end; Agora no seu form1, abra o form2 com a seguinte sintaxe: With TForm2.Create(self, 'Aden', 'Rodrigues') do Begin    ShowModal;    Free; End; Obs: Não deixe o delphi criar automaticamente o formulário. Crie-o (e destrua-o) manualmente.

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: Delphi;
Data.........: 06/06/2002 22:01:08
Visualizado..: 772 vezes
Fonte........: AdeN Knowledge DB