1 – Para começar crie um novo projeto Delphi, caso você não tenha um criado: File >> New >> VCL Forms Application – Delphi for Win32.
2 – Vamos fazer um exemplo com os meses do ano, por isso coloque 13 CheckBox no form, 12 para os meses e outro que servirá para selecionar todos, o qual você deve alterar a propriedade name para CBtodos:
3 – No evento OnClick do CBtodos você deve adicionar o seguinte código:
1 2 3 4 5 6 7 8 9 10 11 12 | procedure TForm3.CBtodosClick(Sender: TObject); var i: Integer; //Variável de controle do laço de repetição checado: Boolean; //Variavel que determina se os Check estão checados ou não begin checado:=false; //Inicializando com falso if CBtodos.Checked then //Se o "Selecionar todos" estiver checado checado:=true; //Checado recebe verdadeiro for i:=0 to ComponentCount-1 do //laço de repetição if (Components[i] is TCheckBox) then //testa se o componente é um Checkbox TCheckBox( Components[i] ).checked := checado; //Marca ou desmarca end; |
Veja que, conforme o código, você pode tanto marcar todos, como desmarcar todos, e que o laço de repetição for percorre todos os componentes presentes no form e testa quais são do tipo TCheckBox, para que só eles tenham seus valores alterados.
Agora compile e teste, veja como ficou. Até a próxima!
0 comentários: