Artigos Delphi Dicas - Como passar parâmetros entre 2 forms


Como passar parâmetros entre 2 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;