Pessoal, estou com uma duvida, Alguém pode responder por gentileza
Tenho uma unit ( genérica ) quem contém diversos functions e procedures
genéricas dentre elas essa abaixo:
{###########################################################################
##}
procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);
begin
{: metodo para abrir form}
Application.CreateForm(aClasseForm, aForm);
try
aForm.ShowModal;
finally
aForm.Free;
aForm:=nil;
end;
end;
{###########################################################################
##}
Utilizo ela para chamar meus forms. Uso ela em conjunto com os actions no
menu Principal
Exemplo:
AbreForm(Tfrmfuncionario, frmfuncionarios);
Em determinada rotina o qual chamo eu preciso verificar se o form esta
instanciado com a rotina abaixo dentro do form aberto
if not Assigned(frmFuncionarios) then Exit;
Se eu chamar o form usando a procedure AbreForm simplesmente ele diz que não
esta instanciada e pula e sai da rotina.
Se eu colocar deste modo funciona.
application.CreateForm(TfrmFuncionarios,frmFuncionarios);
frmfuncionarios.ShowModal;
Não sei se to quebrando a cabeça a toa com isso mas achei estranho. Alguém
poderia apontar onde esta minha falha.
Muito Obrigado
Utilizo Delphi 7 ( build: 8.1 )+ firebird 2.1
Grato
Luis Wagner
De: lista-del...@yahoogrupos.com.br [mailto:lista-del...@yahoogrupos.com.br]
Em nome de RBL System (Yahoo)
Enviada em: quarta-feira, 17 de dezembro de 2008 16:23
Para: Grupo Delphi; Grupo Desenvolvedores; Grupo DTDelphi
Assunto: [lista-delphi] Nome do Indice
Olá pessoal, tudo bem?
Estou precisando pegar o nome do índice da tabela mas não estou
conseguindo de forma alguma.
Utilizo o banco de dados ADS.
Não estou querendo saber o nome do arquivo índice e nem os
campos que compõe os índices e sim, o nome do índice.
Tem como fazer isso? Se possível, me mande um exemplo com outros
bancos de dados para eu ter uma idéia de como fazer isso.
Obrigado,
Rogério.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
