OpenEuphoria

1. w32HMouse Question?

• Posted by doncole2009 Aug 10, 2009
• 1055 views

Hello All,

From Win32Demo\focus2.exw

 
constant btn=create(Button,"&Lookup",sub,180,40,60,25,0), 
list=create(List,"",lookup,10,10,130,280,0), 
focus=create(EditText,"",sub,50,40,100,25,0) 
 
procedure onMouselookup(integer self, integer event, sequence params) 
?9/0 
--if params[1] = LeftDoubleClick then 
  --  dbc = 1 
--elsif params[1] = LeftUp and dbc = 1 then 
--setText(focus,"by mouse")  
--setFocus(focus) 
--closeWindow(lookup) 
--dbc = 0 
--end if 
end procedure 
setHandler(list,w32HMouse,routine_id("onMouselookup"))--this works 
setHandler(btn,w32HMouse,routine_id("onMouselookup"))--this works 
setHandler(focus,w32HMouse,routine_id("onMouselookup"))--this does not work. Why not? 
 
 
Don Cole