Mensagens no get atual

[Ademir]

Boa noite pessoal !

Existe algum parametro do @ get que mostra uma mensagem quando o foco é passado para determinado get ? Se não existir, alguem saberia de alguma função do usuário que faça isso ?

Grato

Ademir.

[Maligno]

Nativamente o Clipper não tem esse tipo de coisa, mas você pode contornar essa limitação usando, por exemplo, a cláusula WHEN. Exemplo:

Código: Selecionar todos

@ 1,10 say "1:" get campo1 WHEN Message(1)
@ 2,10 say "2:" get campo2 WHEN Message(2)
@ 3,10 say "3:" get campo3 WHEN Message(3)
read

function Message(i)
@ 24,0 say {"Texto do primeiro campo",;
            "Texto do segundo campo" ,;
            "Texto do terceiro campo",;
            "Texto do quarto campo"   ;
            }[i]
return .T.

[sygecom]

O Maligno, foi rapido no Gatilho..hehe...mas abaixo mais um exemplo !!!

Código: Selecionar todos

@ 01,01 GET vTIPO  PICT "!" when DwnMsg( "Informe o Tipo " )
READ

Função que mostra no rodapé !

Código: Selecionar todos

function DWNMSG(Arg1, Arg2)
   local r23 := MaxRow()-1
   local c80 := MaxCol()+1
   
   Arg2:= iif(ISNIL(Arg2), "R*/W", Arg2)
   DevPos(r23, 0)
   vldevout(padc(Arg1, c80), Arg2)
   return .T.

[Eolo]

Ademir, use o WHEN junto com uma função qualquer. Ex.:

*...
@11,10 get var1 when men("Vc está na Var1")
@12,10 get var2 when men("Vc está na Var2")
@13,10 get var3 when men("Vc está na Var3")
*...

function men(a)
@24,01 say a
retu .t.

[Stanis Luksys]

Opa,

E se for o caso de usar muito, pode colocar uma clausula a mais lá no STD.CH e jogar a tal função msg() lá...

Poderia até fazer criando uma funçãozinha que visse o foco do objeto get... Basta se basear no funcionamento de WHEN.