Como passar parâmetro em um uma Procedure?
Olá, estou precisando do seguinte esclarecimento. Eu tenho dois forms, um principal e um ajuda. O Ajuda está sendo criado em tempo de execução, e depois de criado tenho que receber um parâmetro enviado pelo form principal na chamada de criação. Exemplo:
UnitPrincipal
...
procedure Abrir(sParam : String);
begin
Application.CreateForm(TFrmAjuda, FrmAjuda);
FrmAjuda.ShowModal;
end;
Procedure TFrmPrincipal.Bitbtn1OnClick(Sender : TObject)
begin
Abrir(´Principal.html´);
end;
---------------------------------------------------------------
Agora lá no arquivo ajuda, eu preciso receber este parâmetro, pois dependendo do parâmetro eu abro um arquivo de ajuda específico.
Deu para entender??? Fazer uma chamada a um formulário passando um parâmetro e receber este parâmetro em outro formulário. Eu já fiz muito isto, mas faz tempo, não me lembro....
Agradeço se me ajudarem.
UnitPrincipal
...
procedure Abrir(sParam : String);
begin
Application.CreateForm(TFrmAjuda, FrmAjuda);
FrmAjuda.ShowModal;
end;
Procedure TFrmPrincipal.Bitbtn1OnClick(Sender : TObject)
begin
Abrir(´Principal.html´);
end;
---------------------------------------------------------------
Agora lá no arquivo ajuda, eu preciso receber este parâmetro, pois dependendo do parâmetro eu abro um arquivo de ajuda específico.
Deu para entender??? Fazer uma chamada a um formulário passando um parâmetro e receber este parâmetro em outro formulário. Eu já fiz muito isto, mas faz tempo, não me lembro....
Agradeço se me ajudarem.
Anonymous
Curtidas 0
Respostas
Anonymous
26/02/2003
declare uma variável public no form principal que ela será vista pelo form criado
GOSTEI 0