<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Bom Dia. </span></span></span><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Use Delphi 10.2.2 tokyo.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Explicando o meu caso, não meu projeto eu tenho formulários onde minhas funções são, como cálculos de impostos, pesquisa de novos números de lote e assim por diante. </span></span></span><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Então, em todos os programas onde eu preciso de algumas funcionalidades, procuro nesse formulário e antes de acessar o código de uso seguinte.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Ex. </span></span></span><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Se FrmMy_Form = Nil então</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Application.CreateForm (TFrmMy_Form, FrmMy_Form);</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">No final, eu fecharia com "FrmMy_Form: = nil", então eu comecei a ter problemas quando repetidamente liguei para o mesmo formulário no mesmo programa, por exemplo, sem programa de entrada de notas, quando várias notas foram importadas mais tarde.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Passando "se FrmMy_Form = Nil then" mostrou o formulário como aberto, mas ao que viaja um IBQuery por exemplo do formulário, surgeu a violação de acesso.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Então eu criei um programa para listar todos os formulários abertos, para rastrear, e muitas vezes 7, 8 instâncias de FrmMy_Form foram criadas.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Depois de pesquisar na internet, encontrei o comando FreeAndNil (FrmMy_Form) oq baixado da memória, mas abrir e fechar o mesmo, também existe o erro de acesso.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Então, sem final do processo de inserção de várias anotações, verifico dos formulários abertos e tenho dúzias de instâncias abertas do FrmMy_Form, que também acaba de dar um problema.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Estive com esse problema há muito tempo, como usar meu FrmMy_Form sem estes erros de violação de acesso indesejados.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Obrigado.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Explicando o meu caso, não meu projeto eu tenho formulários onde minhas funções são, como cálculos de impostos, pesquisa de novos números de lote e assim por diante. </span></span></span><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Então, em todos os programas onde eu preciso de algumas funcionalidades, procuro nesse formulário e antes de acessar o código de uso seguinte.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Ex. </span></span></span><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Se FrmMy_Form = Nil então</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Application.CreateForm (TFrmMy_Form, FrmMy_Form);</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">No final, eu fecharia com "FrmMy_Form: = nil", então eu comecei a ter problemas quando repetidamente liguei para o mesmo formulário no mesmo programa, por exemplo, sem programa de entrada de notas, quando várias notas foram importadas mais tarde.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Passando "se FrmMy_Form = Nil then" mostrou o formulário como aberto, mas ao que viaja um IBQuery por exemplo do formulário, surgeu a violação de acesso.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Então eu criei um programa para listar todos os formulários abertos, para rastrear, e muitas vezes 7, 8 instâncias de FrmMy_Form foram criadas.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Depois de pesquisar na internet, encontrei o comando FreeAndNil (FrmMy_Form) oq baixado da memória, mas abrir e fechar o mesmo, também existe o erro de acesso.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Então, sem final do processo de inserção de várias anotações, verifico dos formulários abertos e tenho dúzias de instâncias abertas do FrmMy_Form, que também acaba de dar um problema.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Estive com esse problema há muito tempo, como usar meu FrmMy_Form sem estes erros de violação de acesso indesejados.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">.</span></span></span></span>
<span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;"><span style="vertical-align: inherit;">Obrigado.</span></span></span></span>