Laboratório de
Programação I
Carlos Oberdan Rolim
Ciência da Computação
Sistemas de Informação
TCheckBox
TCheckBox
Encontrado na paleta Standards
É um tempo de mecanismo que permite ao usuário selecionar
opções cumulativas
A cada instância da classe TCheckBox (cada objeto instalado) a sua
propriedade Checked retorna true se o quadrinho estiver marcado
ou false se estiver em branco
Normalmente costuma estar presente em sentenças lógicas
if((CheckBox1->Checked) && (CheckBox2->Checked)) { ... }
Como a propriedade Checked é booleana ela costuma ser usada
para alterar diretamente (em tempo de execução) propriedades
booleanas de outros objetos como visible, enabled, showhint,
etc...
TRadioButton
TRadioButton
Encontrado na paleta Standards
Funciona de modo muito parecido ao CheckBox
A principal caracteristica que as diferem é que o TRadioButton
funciona de forma mutuamente exclusiva, ou seja, se tiver vários
componentes TRadioButton instalados somente um poderá ser
selecionado
Geralmente é utilizado em duplas
TGroupBox
TGroupBox
Encontrado na paleta Standards
Sua principal função é agrupar outros objetos dentro de um
formulário, tratando-os como se estivessem em um “subformulário”
Os objetos TRadioButton dentro de um GroupBox se tornam
mutuamente exclusivos
TRadioGroup
TRadioGroup
Encontrado na paleta Standards
Agrupa de forma inteligente vários TRadioButtons sendo que as
alternativas são cadastradas na propriedade Items como o editor
de Lista de Strings
A propriedade ItemIndex funciona conforme no TListBox e
TComboBox
Quando está com -1 significa que nada foi selecionado
Com 0 (zero) o primeiro item foi selecionado
Com 1 o segundo e assim por diante
A propriedade Columns permite definir em quantas colunas os
itens serão dispostos
TRadioGroup
Exercicio prático
Exercicio prático
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Clear();
if(RadioButton1->Checked)
Edit1->Text = RadioButton1->Caption + " ";
if(RadioButton2->Checked)
Edit1->Text = RadioButton2->Caption + " ";
Edit1->Text = Edit1->Text + " esta ";
if(RadioButton3->Checked)
Edit1->Text = Edit1->Text + RadioButton3>Caption + " ";
if(RadioButton4->Checked)
Edit1->Text = Edit1->Text + RadioButton4->Caption + " ";
if(RadioButton5->Checked)
Edit1->Text = Edit1->Text + RadioButton5->Caption + " ";
}