- Code: Select all Expand view
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd
DEFINE WINDOW oWnd
@ 1, 1 LISTBOX FIELDS;
ON CHANGE MSGINFO( "OnChange" )
MSGINFO( "Here" )
ACTIVATE WINDOW oWnd;
ON INIT MSGINFO( "OnInit" )
RETURN NIL
- Code: Select all Expand view
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
DEFINE DIALOG oDlg
@ 1, 1 LISTBOX FIELDS;
ON CHANGE MSGINFO( "OnChange" )
MSGINFO( "Here" )
ACTIVATE DIALOG oDlg;
ON INIT MSGINFO( "OnInit" )
RETURN NIL
EMG