Acessando Objetos de Form criado por funções

[Marcelo B. Silva 0]

Olá Pessoal, tudo bem?

 

 

Tenho uma rotinha que cria os forms dinamicamente com variaveis, no qual funciona corretamente..

Porém não consigo acessar nenhuma propriedade ou objeto deste form pelo "nome dele"...

 

procurei bastante na internet mas nao achei nada....

 

este link tem o exemplo das rotinas que estou usando...

 

http://delphi.about.com/library/weekly/aa080905a.htm

 

rotina:

 

procedure CreateFormFromName(const FormName : string);

var

fc : TFormClass;

f : TForm;

begin

fc := TFormClass(FindClass(FormName));

f := fc.Create(Application);

f.Show;

end;

 

procedure TMainForm.FormCreate(

Sender: TObject);

begin

RegisterClass(TFirstForm);

RegisterClass(TSecondForm);

RegisterClass(TThirdForm);

end;

 

procedure TMainForm.CreateFormButtonClick(

Sender: TObject);

var

s : string;

begin

s := 'TFirstForm';

CreateFormFromName(s);

end;

 

 

PARTE DO ERRO

 

procedure TMainForm.Button1Click(Sender: TObject);

begin

FirstForm.Label1.Caption := 'Testando';

end;

 

 

 

Marcelo

[Sky D. Wolfwood 0]

cara... eu não conheço alguns dos comandos que você usou então não posso dizer com certeza... mas eu não consegui achar onde você criou a Label1...