Fórum Como passar parâmetros entre 2 forms #163109

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.


Constructor TForm2.Create(AOwner : TComponent; pParm1, pParm2 :
String);
begin
[color=blue:ad18634666]inherited Create(AOwner); //nesta linha erro de acesso ao componente [/color:ad18634666]
Parametro1 := pParm1;
Parametro2 := pParm2;
end;

[color=blue:ad18634666]carnette
Está retornando o erro de acesso a endereço de memória,
como se Aowner não tivesse sido criado ou não está visível. Procurei mais informação no help, mas achei fraco. Logo, não consegui resolver.
Então, se não peço demais, me mande um exemplo testado.[/color:ad18634666]



Você pode fazer a mesma coisa com o ShowModal....
procedure ShowModal(Par1, Par2...); override;
como definição da procedure
e dai
procedure ShowModal(Par1, Par2...);
begin
inherited ShowModal;
{... seu código ... }
end;

[color=blue:ad18634666]zerneo
Se coloco override não compila. Se não coloco, roda, mas o form
invocado não recebe o valor do parâmetro enviado na chamada.
Tmb, se puder me enviar um exemplo funcionando.
Agradeço muito aos colegas.
Obrigado.
Delmar[/color:ad18634666]