Olá galera, nesta Quick Tips, irei mostrar agora no Delphi For PHP, como podemos trabalhar com os itens de um RadiGroup, efetuando aquelas operações básicas como Incluir, Limpar, Recuperar, e saber a quantidade total de itens adicionados.
Vejamos a as descendências deste componente, para entendermos melhor a funcionalidade do mesmo, desta forma conseguimos identificar classes comuns entre os componentes, e assim descobrir funcionalidades iguais a diferentes componentes.
Object
|
--Persistent
|
--Component
|
--Control
|
--FocusControl
|
--CustomRadioGroup
|
--RadioGroup
2 TLabel (LblResultado, LblTituloRadioGroup)
4 TButton(BtnRecuperar, BtnAdicionar, BtQuantidade, BtnLimpar, BtnAdicionarColuna)
1 TRadioGroup(RdgRadioGroup)
1 TLabeledEdit(LblEdtConteudo)
Veja como ficará a nossa página:
Neste momento vamos ao código para adicionar os itens em seus respectivos componentes.
BtnQuantidade
function BtnQuantidadeClick($sender, $params)
{
//Vemos como é simples sabermos a quantidade de itens de um TRadioGroup
$this->LblResultado->Caption = $this->RdgRadioGroup->Count;
}
BtnLimpar
function BtnLimparClick($sender, $params)
{
//Vemos como é simples limpar os items em um TRadioGroup
$this->RdgRadioGroup->Clear();
}
BtnRecuperar
function BtnRecuperarClick($sender, $params)
{
/*Vemos como é simples pegar o conteúdo do item selecionado no TRadioGroup, através da
propriedade "Items"*/
$this->LblResultado->Caption = 'Item recuperado : ' . $this->RdgRadioGroup->Items[$this->RdgRadioGroup->ItemIndex];
}
BtnAdicionar
function BtnAdicionarClick($sender, $params)
{
//Vemos como é simples adicionar um item em um TRadioGroup
$this->RdgRadioGroup->AddItem($this->LblEdtConteudo->Text,null, null);
}
BtnAdicionarColuna
function BtnAdicionarColunaClick($sender, $params)
{
//Vemos como é simples adicionar uma coluna no TRadioGroup usando o incremento ++
++$this->RdgRadioGroup->Columns;
}
Veja como fica o resultado: não tem a necessidade de ilustrar todos os exemplos, estou mostrando apenas o resultado do clique efetuado no TButton – BtnRecuperar, e também do TButton - BtnAdicionarColuna, logo abaixo ele irá mostrar o conteúdo que estiver selecionado :
Fico por aqui ate à próxima Quick Tips.
Um abraço
Wesley Y
wyamazack@rwsolution.com.br
