Fórum Como verificar se um form foi criado #456075
20/09/2013
0
Estou utilizando o seguinte código para abrir meus formulários:
with TFrm_CadCliente.Create(nil) do
begin
try
ShowModal;
finally
Free;
end;
end;
O problema é que não consigo verifica se o Frm_CadCliente foi criado ou não usando o comando Assigned(Frm_CadCliente).
Existe outra forma de fazer isso??
Agradeço desde já qualquer ajuda...
Vagner Almeida
Curtir tópico
+ 0Posts
20/09/2013
Joel Rodrigues
Gostei + 0
20/09/2013
Joel Rodrigues
var
i:integer;
begin
with Application do
for i:=0 to componentcount-1 do
if components[i] is TFrm_CadCliente then
showmessage('form já criado');
end; Gostei + 0
20/09/2013
Marco Salles
Estou utilizando o seguinte código para abrir meus formulários:
with TFrm_CadCliente.Create(nil) do
begin
try
ShowModal;
finally
Free;
end;
end;
O problema é que não consigo verifica se o Frm_CadCliente foi criado ou não usando o comando Assigned(Frm_CadCliente).
Existe outra forma de fazer isso??
Agradeço desde já qualquer ajuda...
hummmm , mas onde vc utiliza este comando Assigned(Frm_CadCliente) ... Onde e porque ? Este tipo de teste é utilizado quando se utiliza o Show ou aplicações MDI
ao utilizar o ShowModal não faz muito sentido este teste salvo alguma situação particular
[]sds
Gostei + 0
20/09/2013
Vagner Almeida
Gostei + 0
23/09/2013
Eduardo Mendonça
//Criado // Ativo
if Assigned(form1) and (form1.Active) then
begin
end;
ai você testa se esta Criado e se esta Ativo
Gostei + 0
23/09/2013
Marco Salles
//Criado // Ativo
if Assigned(form1) and (form1.Active) then
begin
end;
ai você testa se esta Criado e se esta Ativo
Esta criado não significa estar ativo e o Assigned não testa se existe uma instancia , apenas que existe um endereço que não é NIL
veja um exemplo
var
form:TformQualquer;
begin
if Form <> Nil then // Deveria ser Nil pois o form não foi Criado e nen instanciado
showmessage('È DIFERENTE DE NIL , MAS COMO ????')
Gostei + 0
23/09/2013
Eduardo Mendonça
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)