Code: Select all
#include <hmg.ch>
Function Main
define window x at 0, 0 width 300 height 300 main
define textbox t1
row 10
col 10
width 100
onlostfocus msginfo( 'T1 Lostfocus' )
tooltip 't1'
end textbox
define textbox t2
row 40
col 10
width 100
tooltip 't2'
end textbox
define textbox t3
row 70
col 10
width 100
onlostfocus msginfo( 'T3 Lostfocus' )
tooltip 't3'
end textbox
end window
x.center
x.activate
Return
Code: Select all
#include <hmg.ch>
Function Main
define window x at 0, 0 width 300 height 300 main
define textbox t1
row 10
col 10
width 100
onlostfocus msginfo( 'T1 Lostfocus' )
tooltip 't1'
end textbox
define textbox t2
row 40
col 10
width 100
onlostfocus msginfo( 'T2 Lostfocus' )
tooltip 't2'
end textbox
define textbox t3
row 70
col 10
width 100
tooltip 't3'
end textbox
end window
x.center
x.activate
Return