Criar form apartir de seu nome
Senhores;
Bom dia.
Estou fazendo um menu dinâmico e gostaria de saber se existe uma forma de instanciar um formulário apartir de seu nome.
pois no meu banco de dados possuo o nome do formulario cadastrado
entao gostaria de instancia o formulario apartir do nome do form...
exemplo:
nome_form = ´TAT0001´; (será um parametro passado)
variavel_form = AT0001;
classe_do_form = TAT0001;
se o nome_form = ao variavel_form
entao instancia o form
Será q fui claro ?
Bom dia.
Estou fazendo um menu dinâmico e gostaria de saber se existe uma forma de instanciar um formulário apartir de seu nome.
pois no meu banco de dados possuo o nome do formulario cadastrado
entao gostaria de instancia o formulario apartir do nome do form...
exemplo:
nome_form = ´TAT0001´; (será um parametro passado)
variavel_form = AT0001;
classe_do_form = TAT0001;
se o nome_form = ao variavel_form
entao instancia o form
Será q fui claro ?
Midas
Curtidas 0
Respostas
Cpd_arim
28/06/2006
ve se te ajuda.
var
obj: Tform;
begin
Close;
obj := Tform(Application.FindComponent(edit1.Text));
if assigned(obj) then
obj.Show
else
showmessage(´Programa Não Encontrado´);
end;
var
obj: Tform;
begin
Close;
obj := Tform(Application.FindComponent(edit1.Text));
if assigned(obj) then
obj.Show
else
showmessage(´Programa Não Encontrado´);
end;
GOSTEI 0
Massuda
28/06/2006
Talvez [url=http://forum.clubedelphi.net/viewtopic.php?t=68054]este tópico[/url] seja útil para você.
GOSTEI 0
Midas
28/06/2006
Senhores..
muito grato pela ajuda..
cpd_arim .. me ajudou bastante
e massuda, apesar de ter passado uma tarde procurando pelo site algo sobre o que necessitava, não consegui achar ...
o link que me indicou era exatamente o que precisava, contemplou qualquer dúvida que possuia...
agradeço a todos e até mais...
muito grato pela ajuda..
cpd_arim .. me ajudou bastante
e massuda, apesar de ter passado uma tarde procurando pelo site algo sobre o que necessitava, não consegui achar ...
o link que me indicou era exatamente o que precisava, contemplou qualquer dúvida que possuia...
agradeço a todos e até mais...
GOSTEI 0