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 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 QUE ACONTECE O ERRO.. procedure TMainForm.Button1Click(Sender: TObject); begin FirstForm.Label1.Caption := 'Testando'; end; Marcelo