Tela usando FwLayer com Tbar sendo duplicado

Boa tarde.

Estou usando um FwLayer() dentro de um TFolder(), acontece que , em um dos painéis do FwLayer() esta criando objeto TBar sempre que acesso a aba referente a esse painel.

Gostaria de saber, se é possível verificar se já existe um TBar aberto e encerrar o mesmo? Pois para cada aba a perolização vai ter opções diferente na TBar.

    oPanel2     := oLayer:GetWinPanel( "Col02", "PANEL02",  )
    oTBar       := TBar():New( oPanel2  , 25, 32, .T.,,,, .T.)
    oBBrNovo    := TBtnBmp2():New( 00, 00, 35, 25, 'BRW_FILTRO.PNG' /*'PMSRRFSH' */   ,,,, { ||             FWMsgRun(, {|oSBar| fTela( ) }, "Vtex - Aguarde", "Conectando com a VTex...")          }   , oTBar , 'Filtrar'      ,, .F., .F. )
    oBBrNovo    := TBtnBmp2():New( 00, 00, 35, 25, 'PMSRRFSH'                         ,,,, { ||             FWMsgRun(, {|oSBar| fTela( ) }, "Vtex - Aguarde", "Conectando com a VTex...")          }   , oTBar , 'Sincronizar'  ,, .F., .F. )

tbar.png

compartilhar
  • John, por favor, coloca o código completo para reproduzir esse problema.

    Daniel Mendes   11 de Mar de 2021
  • Bom dia, declare o oTBar como local e no final use o FreeObj( oTBar ) para "eliminar" a variável

    Jorge Alberto   11 de Mar de 2021
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

0 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags tfolder tbar fwlayer ou faça a sua própria pergunta.