Buscar por:

Como passar parâmetros entre 2 forms

Código

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;

Obs: Não deixe o delphi criar automaticamente o formulário. Crie-o (e destrua-o) manualmente.

Enviada por: