Please consider this example:
Code: Select all
#include <hmg.ch>
function main
define window sample at 0,0 width 200 height 200 main
define textbox date1
row 10
col 10
width 120
date .t.
on change msginfo("Date Changed")
end textbox
define textbox number1
row 40
col 10
width 120
numeric .t.
on change msginfo("Number Changed")
end textbox
end window
sample.center
sample.activate
return nil