Code: Select all
#include <hmg.ch>
PROC Main()
DEFINE WINDOW frmTopMostTest ;
AT 0, 250 ;
WIDTH 250 ;
HEIGHT 100 ;
TITLE "TopMost Test" ;
MAIN ;
TOPMOST
ON KEY ESCAPE ACTION frmTopMostTest.Release
DEFINE CONTEXT MENU // OF &cFrmName
MENUITEM "Open" ACTION MsgBox( "Open" )
MENUITEM "Close" ACTION MsgBox( "Close" )
MENUITEM "Save" ACTION MsgBox( "Save" )
MENUITEM "Save as" ACTION MsgBox( "Save as" )
SEPARATOR
MENUITEM "Exit ( Esc)" ACTION ThisWindow.Release
END MENU
END WINDOW // frmTopMostTest
frmTopMostTest.Activate
RETU // Main()
*-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.