Antonio
Si ejecutas el código adjunto comprobaras que al coger el foco el Get no realiza el cambio de color. Lo cambia realmente si se instroduce algun valor.

Saludos
Toni Sales

include "FWCE.ch"

//----------------------------------------------------------------------------//

function Main()

local oWnd, oGet
local cName := Space( 20 )

DEFINE WINDOW oWnd TITLE "Scroll"

@ 7, 8 GET oGet VAR cName OF oWnd SIZE 100, 18

    oGet:bGotFocus := {|| oGet:SetColor(RGB(  0,  0,  0), RGB(155,255,200) )}

ACTIVATE WINDOW oWnd

return nil

Funciona correctamente si fuerzas con un Refresh().

oGet:bGotFocus := {|| oGet:SetColor(RGB( 0, 0, 0), RGB(155,255,200) ), oGet:Refresh()}

Saludos
Toni Sales

Toni,

Bien, bueno ya sabemos que es preciso un :Refresh() en Pocket PC. Gracias