Classe: TCheckBox
Cria um objeto do tipo caixa de seleção (CheckBox).
TSrvObject -> TControl -> TCheckBox
#include "TOTVS.CH"User Function TCheckBox() DEFINE DIALOG oDlg TITLE "Exemplo TCheckBox" FROM 180,180 TO 550,700 PIXEL lCheck := .T. // Usando New oCheck1 := TCheckBox():New(01,01,'CheckBox 001',{||lCheck},oDlg,100,210,,,,,,,,.T.,,,) oCheck2 := TCheckBox():New(11,01,'CheckBox 002',{||lCheck},oDlg,100,210,,,,,,,,.T.,,,) oCheck3 := TCheckBox():New(21,01,'CheckBox 003',,oDlg,100,210,,,,,,,,.T.,,,) oCheck4 := TCheckBox():New(31,01,'CheckBox 004',,oDlg,100,210,,,,,,,,.T.,,,) oCheck5 := TCheckBox():New(41,01,'CheckBox 005',,oDlg,100,210,,,,,,,,.T.,,,) // Usando Create oCheck6 := TCheckBox():Create( oDlg,{||lCheck},61,01,'CheckBox 006',; 100,210,,,,,,,,.T.,,,) oCheck7 := TCheckBox():Create( oDlg,{||lCheck},71,01,'CheckBox 007',; 100,210,,,,,,,,.T.,,,) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe TCheckBox
Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas