@ 010,304 GET EditNome ;
VAR cNome ;
SIZE 200,24 ;
PICTURE '@!' ;
MAXLENGTH 100 ;
FONT HFont():Add( 'Tahoma', 0, -13, 400 ) ;
ON CHANGE {|| ChangeEditNome() } ;
ON INIT {|| EditNome:SetCueBanner( "Entre com o nome do sócio", .T. )}
FUNCTION ChangeEditNome()
IF Len( AllTrim( ThisForm:EditNome:VarGet() ) ) = 0
Hwg_SetWindowText( ThisForm:EditNome:Handle, "" )
ENDIF
RETURN Nil