Vc porderia criar uma funcao assim:
type
TClasseForm = class of TForm;
Function CriaForm(Classe:TClasseForm):TForm;
Begin
Result := Classe.Create(nil);
End;
E a chamada seria assim imaginando que vc tenha um form chamado TForm1
Var
MeuForm:TForm;
Begin
MeuForm := CriaForm(TF
amigo, não sei se entendi direito, mas pelo que eu entendi é so vc passar um
parameto do tipo TForm, ai vc passa o nome do form e deu
se for isso blz...
- Mensagem original
De: Adauri Antonio Camacho Junior <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-fei
2 matches
Mail list logo