Fórum Criar form usando variavel TFormClass e acessar property #364616

03/10/2008

0

Ola a todos,

Estou fazendo algo errado e sei que é algum conceito que me falta.
Estou criando um Form dinamicamente usando uma variavel do tipo TFormClass más depois de instanciar o Form não tenho acesso a property existente no form.

Exemplo:

---> Form que quero instanciar

unit MeuForm;
interface
uses ...;

type
TfrmMeuForm = class(TForm)
...
private
{ Private declarations }
FMyProperty: string;
public
{ Public declarations }
property MyProperty: string read FMyProperty write FyProperty;
end;

var
frmMeuForm: TfrmMeuForm;

implementation
...
end.

----> Como estou instanciando o Form

Unit MeuTeste;
interface
Uses MeuForm, MeuForm2, MeuForm3,...;
...
procedure InstaciaForm(pFormClass: TFormClass);
var
mFormClass: TFormClass;
mTeste: string;
begin

mTeste := ´A´;

mFormClass := pFormClass;

with mFormClass.Create(self) do
begin

MyProperty := mTeste; // ISSO NÃO COMPILA

end;

end;


Agradeço qualquer ajuda e desde já me desculpo pela falta de conhecimento básico.


Edlyra

Edlyra

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar