Skip to main content
adicionou 258 caracteres ao conteúdo
Fonte Link
Guilherme Lima
  • 3,1mil
  • 4
  • 35
  • 62

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 52 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?

Estou usando o seguinte codigo para tornar os CheckBox visiveis.

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

     for i := 1 to 5 do

          CheckBox[i].Visible := true;

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?

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?

Fonte Link
Guilherme Lima
  • 3,1mil
  • 4
  • 35
  • 62

Erro ao tornar CheckBox Visivel

Estou usando o seguinte codigo para tornar os CheckBox visiveis.

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

     for i := 1 to 5 do

          CheckBox[i].Visible := true;

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?