PC Toledo

COMECEI A USAR A LIB CLIPMOUS
EU VEJO A LINHA E A POSICAO EM QUE O MOUSE
SE ENCONTRA NA TELA E CRITICO CHAMANDO ASSIM O PRG.

@ 22,18 SAY 'X
DO WHILE .T.
IF MY() =22 ..AND. MX()=18
DO TESTE.PRG
ENDIF
ENDDO'

ATE AQUI BELEZA, ESTA FUNCIONANDO CERTINHO.
A BRONCA E QUE O PROGRAMA ESTARA PARADO NO MENU
DO PROMPT

OPCAO=1
@ 22,18 PROMPT 'X-OPCAO1'
@ 23,19 PROMPT 'Y-OPCAO2'
MENU TO OPCAO
IF MY() =22 ..AND. MX()=18
DO TESTE.PRG
ENDIF
IF OPCAO1=1
DO TESTE.PRG
ENDIF

********** A BRONCA E QUE O CLIPPER ESTA ESPERANDO A
RESPOSTA DO PROMPT E NAO LE O IF DO MOUSE

Vc precisa de uma rotina de prompt com suporte a mouse, geralmente as libs mais profissionais tem isto, o clipper 5.3 já faz interação com o mouse em todo o seu sistema.