Criar form usando variavel TFormClass e acessar property
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.
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
Curtidas 0