Click outside the modal window

[Natter]

Hi,

From the main window A, I open a new modal window B. If you click on window A, window B will twitch 2-3 times.
What is this event and can it be handled?

[Antonio Linares]

Dear Yuri,

Have you tried with oWnd:bLostFocus ?

[Natter]

I did the check B:bLostFocus:={||msginfo(123)} It does not fire. I.e. it is not a "Loss of focus" event

[karinha]

Can you make a small example? Gracias, tks.

Regards, saludos.

[Natter]

Code: Select all | Expand

#include "FiveWin.ch"

function Main()
private oA

   DEFINE DIALOG oA  FROM 2, 2 TO 30, 60  TITLE "First dialog"

   oA:bRClicked = { | nRow, nCol, nFlags | New_Dlg() }

   ACTIVATE DIALOG oA CENTERED
return nil

function New_Dlg
local  oB

   DEFINE DIALOG oB  OF oA    FROM 2, 2 TO 20, 50   TITLE "Second dialog"

   ACTIVATE DIALOG oB CENTERED
return nil

[karinha]

Code: Select all | Expand

#include "FiveWin.ch"

// STATIC oDlg, oDlg2 // .or.

MEMVAR oDlg, oDlg2

FUNCTION Main()

   LOCAL oGet, oGet2, oBtn, Capt := Space( 10 ), Capt2 := " "

   DEFINE DIALOG oDlg FROM 2, 2 TO 30, 60 TITLE "First dialog"

   oDlg:lHelpIcon := .F.

   oDlg:bRClicked = {| nRow, nCol, nFlags | New_Dlg() }

   ACTIVATE DIALOG oDlg CENTERED 

RETURN NIL

FUNCTION New_Dlg()

   DEFINE DIALOG oDlg2 OF oDlg FROM 2, 2 TO 20, 50 TITLE "Second dialog"

   oDlg2:lHelpIcon := .F.

   ACTIVATE DIALOG oDlg2 CENTERED

RETURN NIL

// FIN / END

Regards, saludos.