for i:=1 to len(PoBtc)
@ lin,col say PoBtc[i] OF oWndp DESIGN PIXEL SIZE 100,20 BORDER
PoBtc[i]:bLButtonUp = GenBlock( PoBtc, i )
next
...
static function GenBlock( PoBtc, i )
return { || PoBtc[ i ]:Refresh(), MsgInfo( "aqui" ) }
for i:=1 to len(PoBtc)
@ lin,col say PoBtc[i] PROMPT "say" OF oWndp DESIGN PIXEL SIZE 100,20 BORDER
PoBtc[i]:bLButtonUp = GenBlock( PoBtc, i )
PoBtc[i]:lWantClick = .T.
next
...
static function GenBlock( PoBtc, i )
return { || PoBtc[ i ]:Refresh(), MsgInfo( "aqui" ) }
METHOD LButtonUp( nRow, nCol, nKeyFlags ) CLASS TControl
...
if GetFocus() != ::hWnd
SetFocus( ::hWnd )
endif
if ! Empty( ::bLButtonUp ) // Nuevo!
Eval( ::bLButtonUp, nRow, nCol, nKeyFlags, Self ) // Nuevo!
endif // Nuevo!
return 0
...
...
if GetFocus() != ::hWnd
SetFocus( ::hWnd )
endif
** return 0 <<-- Tirar esta linha
endif
return Super:LButtonUp( nRow, nCol, nKeyFlags )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 46 guests