![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Puedes hacer mas o menos algo asi
- Code: Select all Expand view
Local lFocus := .F.
REDEFINE GET oGet VAR ........
oGet:bGotFocus := { || lFocus := .T. }
oGet:bLostFocus := { |o,h| If( h == oBtn:hWnd, , ; //tomo el foco el btn
lFocus := .F. ) }
REDEFINE BUTTON oBtn ID .... OF oDlg ;
ACTION ......, oGet:SetFocus() ;
WHEN lFocus