Ativar mouse em programas DOS

[alvaro.bernardi]

Função para ativar o mouse:

Código: Selecionar todos

#include 'inkey.ch'

PROCEDURE oMouse()
LOCAL nEvent, nRow, nCol
   MShow()

   SET EVENTMASK TO 255
   nEvent := Inkey(0.1)
   IF nEvent == K_LBUTTONDOWN
      nRow := MRow()
      nCol := MCol()
      @ nRow, nCol
   ENDIF
RETURN

Inclua uma chamada para a função no laço principal de sua rotina Main()

Ex:

Function main()
cls
do while .t.
oMouse()
...
...
enddo
return(nil)


funciona nos menus, gets, etc...

e é só isso

....................................
Nota da Moderação(Sygecom):
Mensagem editada para mudar as TAG de QUOTE para CODE