Sr. Antonio,
Algumas vezes utilizando o sistema acontecia de estar com uma MSGINFO ou mesmo uma DIALOG na tela, e conseguir clicar na WINDOW no fundo. Ou seja, o FIVEWIN se perdia e não conseguia travar este tipo de ação. Postei varias vezes no forum o problema e o Senhor sempre me pedia um EXE simulando o problema.
Porem, isto acontecia aleatoriamente, e não era possível reproduzir o problema.
Hoje eu consegui simular
#include "fivewin.ch"
function main()
local oWnd1
DEFINE WINDOW oWnd1 TITLE "oWnd1" mdi
ACTIVATE WINDOW oWnd1 on init(CriaDialog(),syswait(5),msginfo('CLICK ON THE WINDOW IN THE BACKGROUND TO SIMULATE THE BUG'))
return nil
/**********************************/
function CriaDialog()
local oDlg
DEFINE DIALOG oDlg FROM 6, 6 TO 20, 60 TITLE "DIALOG NOWAIT - SEMPRE A FRENTE"
@ 2, 2 BUTTON "&Hello" OF oDlg ;
ACTION ( msginfo("click on dialog"))
@ 4, 2 BUTTON "&Bye!" OF oDlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg on init(setwindowpos( oDlg:hWnd, -1, 0, 0, 0, 0, 3 ) ) nowait
return(.t.)