Dúvida
TCheckBox como validar se o mesmo foi marcado ou não?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - ADVPL – Todas versões
Solução
A propriedade LMODIFIED traz a informação se foi modificado.
Exemplo de validação
#include "TOTVS.CH"
User Function TCheckBox()
DEFINE DIALOG oDlg TITLE "Exemplo TCheckBox" FROM 180,180 TO 550,700 PIXEL
oCheck1 := TCheckBox():New(01,01,'CheckBox 001',{||u_tstChk(oCheck1)},oDlg,100,210,,,,,,,,.T.,,,)
oCheck2 := TCheckBox():New(11,01,'CheckBox 002',{||u_tstChk(oCheck2)},oDlg,100,210,,,,,,,,.T.,,,)
ACTIVATE DIALOG oDlg CENTERED
Return
function u_tstChk(oCheck)
if valType(oCheck) <> "U"
if oCheck:lModified
msgInfo("Desmarcado" + oCheck:cTitle)
else
msgInfo("Marcado" + oCheck:cTitle)
endIf
endIf
return .t.
Saiba mais
ADV0070 Tcheckbox
0 Comentários