AJUDA - Estou apanhando do TBrowse

[JoséQuintas]

Código: Selecionar todos

nKey := Inkey(0)

O fonte acima é insuficiente pra saber.
Se for Clipper 5.2, não tem mouse mesmo, a não ser com lib externa.
Se for Clipper 5.3, ele já possui o tratamento de mouse, mas é necessário algo mais na linha acima, ou antes dela.
Uma vez detectado o mouse, o click do mouse vai ser igual a apertar uma tecla.
Lógico... vai depender da posição do click, mas a primeira coisa é conseguir detectar o click.

[JoséQuintas]

Outro comentário sobre o fonte, pra "despoluir" o tbrowse:

Código: Selecionar todos

DO WHILE .T.
   ...
   Case nKey == K_ESC 
            DbCloseArea() 
            RestScreen(00, 00, 24, 79, mTelaCheia) 
            Exit 
...
ENDDO

Fechar arquivo e restaurar tela não faz parte da rotina de tbrowse, então deixe fora dela

Código: Selecionar todos

DO WHILE .T.
   ...
   Case nKey == K_ESC 
            Exit 
...
ENDDO
DbCloseArea()
RestScreen(00, 00, 24, 79, mTelaCheia) 

Esses detalhes vão ajudando a deixar o fonte mais simples e fácil de enxergar.