Método States - Exemplo

Sumário - Índice

Exemplo de uso

procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
// implemente aqui uma rotina para ler o registro do Windows
I := ...lê o valor do registro do Windows

EvCheckGroup1.SetStates(I);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
I: Integer;
begin
I := CheckGroup1.States;

// implemente aqui uma rotina para salvar no registro do Windows
...salva valor no registro do Windows;
end;