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.)

Up!

"FIVEWIN se perdia" se perdia como?
executei seu exemplo nao encontrei nenhum problema, acho q seja por isso que ninguem responde, kd o problema?

minha versao fwh1205

Sistem,

Mais é este o problema, o que procuro demonstrar com o PRG é que se houver uma dialog nowait o problema ocorre. Entende?

O PRG é apenas para demonstrar o problema quando se utiliza uma DIALOG NOWAIT ou mesmo que você de o foco para um programa externo antes de carregar a MSGINFO.