chamar um form passando seu nome

Delphi

14/04/2005

tenho um form de pesquisa, vou usar o mesmo para varios form, nesse form de pesquisa tem um grid, quando dou 2 click ele deve passar o código para o form de origem, como faço para passar o nome do form como se fosse um variavel?

valeu!!!


Luiz_aquino

Luiz_aquino

Curtidas 0

Respostas

Jrinfo2005

Jrinfo2005

14/04/2005

Não sei se eu entendi !!!
crie uma procedure dentro do type, juntamente com as outras procedures exemplo: 

Type
   Procedure Show (Varialvel : Tipo) : TModalResult;
Private
.
.
.
procedure Form1.Show(Varialvel : Tipo) : TModalresult;
begin
   {tratamento para o valor da variável}
   Result := Inherited ShowModal;
End;


Depois é soh chamar

   Application.CreateForm(TForm1, Form1);
   If Form1.Show(Variavel) = mrOk Then
   Begin
   .
   .
   .
   End;


Espero ter ajudado


GOSTEI 0
Jrinfo2005

Jrinfo2005

14/04/2005

soh corrigindo é function e não procedure. Foi mal !!!!


GOSTEI 0
POSTAR