Como passar parâmetro em um uma Procedure?

Delphi

26/02/2003

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.


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

26/02/2003

declare uma variável public no form principal que ela será vista pelo form criado


GOSTEI 0
POSTAR