0

Estou usando o seguinte codigo para tornar os CheckBox visiveis.

CheckBox: Array[1..15] of TcheckBox;


procedure TForm1.edt_variavelChange(Sender: TObject);
var valor,x,i  : integer;
 if valor = 2 then
    begin
         for i := 1 to 2 do
           begin
              TEdit(FindComponent('edt_variavel'+IntToStr(i))).Visible := true
              CheckBox[i].Visible := true;
     end;

porem ele da um Acess Violation, ao usar o debug e dar um BREAK no erro sou direcionado a esse código do Vcl.Controls

procedure TControl.SetVisible(Value: Boolean);
begin
  if FVisible <> Value then
  begin
    VisibleChanging;
    FVisible := Value;
    Perform(CM_VISIBLECHANGED, Ord(Value), 0);
    RequestAlign;
  end;
end;

Como posso solucionar esse erro?

9
  • As checkbox esitem, são componentes criados? Não seria o caso de realizar a busca por componentes e assim setar? Commented 2/02/2016 às 13:18
  • Colcoa o código inteiro
    – Passella
    Commented 3/02/2016 às 13:34
  • Eles existem, só estão setados como invisiveis. @Passella o que mais precisa do codígo? acho que todas as informações estão ai. Commented 3/02/2016 às 17:20
  • tente: if Assigned(CheckBox[i]) then CheckBox[i].Visible := True;
    – Passella
    Commented 3/02/2016 às 19:24
  • nada acontece @Passella Commented 4/02/2016 às 11:22

2 Respostas 2

1

crie um for onde o mesmo ira passar por todos os componentes se for checkbox ative o mesmo da seguinte forma:

for i := 0 to ComponentCount - 1 do
    begin
       if Components[i] is TCheckBox then
          TCheckBox(Components[i]).Visible := true;
    end;   

ai você pode alterar conforme sua necessidade, colocando mais algumas validações se necessário.

1
  • 1
    Tive que adaptar, mas segui esse caminho, obrigado. Commented 10/02/2016 às 12:05
0

Acredito que pode ser uma possibilidade desta forma, não testei o código:

procedure SetaCheckBox (bOp : Boolean);
var
    nmComp : TComponent;
    i : integer;
begin
    for i := 0 to Form1.ComponentCount-1 do
    begin
        nmComp := Form1.FindComponent(Form1.Components[i].Name);
        if Assigned (nmComp) and  (nmComp is TCheckBox) then
                TCheckBox(nmComp).Visible := bOp;
    end;
end;

procedure TForm1.FormDblClick(Sender: TObject);
begin
    SetaCheckBox (false);
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
        SetaCheckBox (True);

end;

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .