terminate MDI child windows with <vk_escape>

[don lowenstein]

I created an MDI window with 2 mdichild windows.

My child windows require clicking the close "X" button to shut them down.

how can I make the escape key shut down/close each MDICHILD windows without having to touch the mouse?

thank you

[Rick Lipkin]

Don

This code snipit should work..

Rick Lipkin

Code: Select all  Expand view

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

[don lowenstein]

Worked like a charm.

Thanks Rick.