inkey(0)

[Natter]

Hi,

I need to perform some actions in an infinite loop, taking into account the pressed key at each iteration. I wrote:

Code: Select all  Expand view  RUN

do while .T.
  if inkey(0)=32
    .........
  else
    exit
  endif
  sysrefresh()
enddo

However, in FW24.2, this design does not work. That is, inkey(0) freezes. How can this be implemented ?

[Antonio Linares]

If you are using a Windows GUI app you must be using a window or a dialog and then you check the inkey event on those objects

Are you showing something in your app ?

Please post a complete and reduced example, thank you

[Natter]

Thank you, Antonio! I figured it out.

[karinha]

Use:

Code: Select all  Expand view  RUN

   IF LASTKEY() = VK_ESCAPE

      ...

   ELSE

      ...

   ENDIF
 

Regards, saludos.