CHAMAR UM FORM A PARTIR DE UM NOME EM STRING
CHAMAR UM FORM A PARTIR DE UM NOME EM STRING .
EX:
ESTANDO GRAVADO EM BANCO DE DADOS ,O USUARIO QUE PUDER ACESSAR OS SEGUINTES FORMS :
´FRM_CAD01´
´FRM_CAD02´
COMO LER ESTE STRING E JOGAR PARA QUE UMA ROTINA CHAME O FORM
Sem Mais ,
ADILSON PAZZINI .
EX:
ESTANDO GRAVADO EM BANCO DE DADOS ,O USUARIO QUE PUDER ACESSAR OS SEGUINTES FORMS :
´FRM_CAD01´
´FRM_CAD02´
COMO LER ESTE STRING E JOGAR PARA QUE UMA ROTINA CHAME O FORM
Sem Mais ,
ADILSON PAZZINI .
Anonymous
Curtidas 0
Respostas
Macsousa
05/02/2003
NOME_FORM é a variavel do banco
if NOME_FORM = ´FRM_CAD01´
begin
Application.CreateForm(TFRM_CAD01, FRM_CAD01);
FRM_CAD01.Show;
end;
if NOME_FORM = ´FRM_CAD01´
begin
Application.CreateForm(TFRM_CAD01, FRM_CAD01);
FRM_CAD01.Show;
end;
GOSTEI 0
Anonymous
05/02/2003
Amigo, eis um exemplo simples:
var
FormName: string;
AForm: TForm;
begin
Application.CreateForm(TFormClass(FindClass(´T´+FormName)), AForm);
end;
Em cada form a ser chamado na rotina anterior, você deverá criar no final a seção:
{supondo que o form2 será chamado}
initialization
RegisterClass(TForm2);
end.
var
FormName: string;
AForm: TForm;
begin
Application.CreateForm(TFormClass(FindClass(´T´+FormName)), AForm);
end;
Em cada form a ser chamado na rotina anterior, você deverá criar no final a seção:
{supondo que o form2 será chamado}
initialization
RegisterClass(TForm2);
end.
GOSTEI 0