A Component named frmImportaXML already exixts

Delphi

19/09/2013

Olá pessoal, estou com um problema que não estou encontrando a solução, para criar um formulario utilizo o seguinte chamado:

frmImportaXML:=TfrmImportaXML.Create(Self);
Try
frmImportaXML.ShowModal;
finally
FreeAndNil(frmImportaXML);
end;

Mas em um cliente ocorre o seguinte, eles abrem constantemente esse formulario sem dar erro, mas de repente ao acionar ele retorna, o erro "A Component named frmImportaXML already exixts", ja veririfcamos no fonte mas nada encontramos para resolver. Temos outros clientes utilizando esse aplicativo, mas não tivemos problemas com eles, talvez porque não usam tanto quanto esse, mas está dificil ouvir reclamação todo dia sobre isso.

Alguém poderia ajudar?
Cristiano

Cristiano

Curtidas 0

Respostas

Rafael Brendolan

Rafael Brendolan

19/09/2013

if not Assigned(frmImportaXML) then...


Coloque antes de criar o formulário
GOSTEI 0
Cristiano

Cristiano

19/09/2013

Deveria fazer assim?

if not Assigned(frmImportaXML) then
begin
frmImportaXML:=TfrmImportaXML.Create(Self);
Try
frmImportaXML.ShowModal;
finally
FreeAndNil(frmImportaXML);
end;
end;
GOSTEI 0
Rafael Brendolan

Rafael Brendolan

19/09/2013

Sim...
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

19/09/2013

Opa amigo,

Será q vc não renomeou algum formulário ou outro componente com o mesmo nome??

abs
GOSTEI 0
Marco Salles

Marco Salles

19/09/2013

if not Assigned(frmImportaXML) then

Na minha opinião não faz diferença se a variável for Local e tb não deve costumeiramente ser a chave do Problema

Na grande maioria das vezes isto ocorre pq o Proprietário é o Self ou a Applicação

Tente sem compromisso colocar Nil como Proprietário

[]sds e boa sorte
GOSTEI 0
Marco Salles

Marco Salles

19/09/2013

if not Assigned(frmImportaXML) then

Na minha opinião não faz diferença se a variável for Local e tb não deve costumeiramente ser a chave do Problema

Na grande maioria das vezes isto ocorre pq o Proprietário é o Self ou a Applicação

Tente sem compromisso colocar Nil como Proprietário

[]sds e boa sorte
GOSTEI 0
Marco Salles

Marco Salles

19/09/2013

if not Assigned(frmImportaXML) then

Na minha opinião não faz diferença se a variável for Local e tb não deve costumeiramente ser a chave do Problema

Na grande maioria das vezes isto ocorre pq o Proprietário é o Self ou a Applicação

Tente sem compromisso colocar Nil como Proprietário

[]sds e boa sorte
GOSTEI 0
Marco Salles

Marco Salles

19/09/2013

if not Assigned(frmImportaXML) then

Na minha opinião não faz diferença se a variável for Local e tb não deve costumeiramente ser a chave do Problema

Na grande maioria das vezes isto ocorre pq o Proprietário é o Self ou a Applicação

Tente sem compromisso colocar Nil como Proprietário

[]sds e boa sorte
GOSTEI 0
POSTAR