Página 1 de 1
Mensagens no get atual
Enviado: 16 Ago 2007 18:23
por 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.
Enviado: 16 Ago 2007 18:33
por 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.
Enviado: 16 Ago 2007 18:34
por 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.
Enviado: 16 Ago 2007 18:36
por 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.
Enviado: 16 Ago 2007 23:34
por 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.