... ENDCLASS METHOD arrancar() CLASS Vehiculo ? "El vehículo está arrancando..." RETURN METHOD tocarBocina() CLASS Coche ? "Beepbeep!" RETURN La clase Coche hereda el método arrancar() de Vehiculo, pero también puede tener métodos y datos propios, como tocarBocina(). ...
... un oGet:VarPut(Space(Len(oGet:VarGet())))oGet:Refresh() Por cierto, si no encuentra un codigo mandale un Beep() de error Editado: Para que no abandone el get o bien devuelves false en el valid o bien utilizas un timer de muy pocos milisegundos con un oGet:SetFocus() ...
Enrico, I will remember that we changed for a similar case METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TControl case nMsg == WM_SYSCOMMAND return ::SysCommand( nWParam, nLoWord( nLParam ), nHiWord( nLParam ) ) Best regards, Otto
Master: En wBrowse.prg o Dialog.prg haga esto: In wBrowse.prg or Dialog.prg... DATA bAltKey // Para Acionamento da Tecla Alt+++... METHOD SysCommand( nType, nLoWord, nHiWord )en:METHOD Syscommand( nType, nLowOrd, nHiWord ) Class TWBrowse ...