There is no event for it. So i thought it would work using the ONMOUSEMOVE in the windows definition, extracting the mouse position (no function for that ???) and creating/deleting the popup:
Code: Select all
DEFINE WINDOW Form_1 ;
ON MOUSEMOVE test() .....
@ 540,460 BUTTON ButtonBluete ;
PICTURE "bbluete" ;
WIDTH 29 HEIGHT 30 FLAT
.....
function test()
LOCAL nMouseRow := _HMG_SYSDATA [ 191 ]
LOCAL nMouseCol := _HMG_SYSDATA [ 192 ]
IF nMouseRow >= Form_1.ButtonBluete.Row .AND. nMouseRow <= Form_1.ButtonBluete.Row + 28 .AND. ;
nMouseCol >= Form_1.ButtonBluete.Col .AND. nMouseCol <= Form_1.ButtonBluete.Col + 29
// popup window
ELSE
// close window
ENDIF
Return Nil
Any way to make that easier and working ?
Regards ... Ricci