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!
Nenhum comentário:
Postar um comentário