ESC key blanks out MDI Child dialog

[Rick Lipkin]

To ALL

I have a dialog embedded within a mdi child and when you hit the escape key .. the dialog box disappears and leaves a grey mdi child frame.

This has bothered me for some time but it rarely ever cropped up in production. Just curious if anyone has found a work around ( other than turning off the escape key ) to knit both the dialog to the mdi frame together .. so that either nothing would happen or the escape key could trip a valid close ?

Thanks
Rick Lipkin

ps .. I have tried this code with the same results where oWnd1 is the mdi child:

Code: Select all  Expand view  RUN

// key handler to trap key strokes  ESC to quit  //
       oWnd1:bKeyDown := {|nKey| IF(nKEY = 27, oWnd1:END(), ) }
 

[Enrico Maria Giordano]

Code: Select all  Expand view  RUN

VALID !GETKEYSTATE( K_ESC )

EMG

[Rick Lipkin]

Enrico

Thank you .. I plugged your solution into the valid clause on the activate dialog line and it worked ..

Many Thanks
Rick