Vladimir Tsichevski, 04/04/2022 12:19 PM
Download (232 Bytes)
// Test frame shall receive focus
DEFINE FRAME f
WITH SIZE 500 BY 500 TITLE "Test frame focus"
BGCOLOR 5.
ON ANY-KEY OF FRAME f DO:
MESSAGE "Key pressed".
END.
ENABLE ALL WITH FRAME f.
WAIT-FOR CLOSE OF THIS-PROCEDURE.