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

Responder a