Page tree
Skip to end of metadata
Go to start of metadata

TCheckBox

Produto:

Protheus ADVPL

Versões:

P12.1.17

Ocorrência:

TCheckBox como validar se o mesmo foi marcado ou não?

Ambiente:

P12.1.17

Passo a passo:

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.

 



Observações:

Construtor TCheckBox:New