Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
Carregando comentários...