TFlatCheckBox

Question

Como me refiro ao TFlatCheckBox Caption chamado �Controle de Acesso� e n�o ao Name chamado ckModulo13, atribuindo o check ao grModulo (abaixo)?

grModulos.Enabled:= TFlatCheckBox.Caption.(�Controle de Acesso�).Checked;

Obrigada
Andreza

Bon Jovi · Answer

� s� varrer os componentes at� achar o CheckBox com o caption q vc quer. Ex.:

procedure TForm1.Teste(ACaption: TCaption);
var
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i] is TCheckBox then
    begin
      grModulos.Enabled := TCheckBox(Components[i]).Caption = ACaption;
      Break;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Teste(�Controle de Acesso�);
end;

Bon Jovi · Answer

Desconsidere o exemplo de cima. Acertando...

procedure TForm1.Teste(ACaption: TCaption);
var
  i: integer;
begin
  grModulos.Enabled := False;
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i] is TCheckBox then
    begin
      if TCheckBox(Components[i]).Caption = ACaption then
      begin
        grModulos.Enabled := TCheckBox(Components[i]).Checked;
        Break;
      end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Teste(�Controle de Acesso�);
end;

F�rum TFlatCheckBox #235136