[WMaxaW]

есть двумерный массив чекбоксов. Но так как я дятел и не поняла как теперь обратится к ним прошу помощи, мож кто обьяснит
код создания вот

Код:

 x:=45;
  for i:=1 to 9 do
 begin
    for j:=1 to 7 do
 begin
 cb[i,j]:=TCheckBox.create(form4.Panel3);
 cb[i,j].left:=x;
 cb[i,j].top:=j*30;
 cb[i,j].Caption:='';
 cb[i,j].Name:='cb'+inttostr(j)+inttostr(i);
  cb[i,j].Parent:=form4.Panel3;
   cb[i,j].Caption:='';
 
  end;
   x:=x+50;
 end;

Admin: Где теги?

[Karsh]

Думаю, также, как и создавали
Узнаете номера нужного чекбокса и работаете с ним.
Например

Код:

if cb[1,2].Checked then ...

[Nyctos Kasignete]

Karsh, в случае, если массив cb объявлен как глобальная переменная, — да. Если же это локальная переменная, следует при создании задавать CheckBox'ам имена, а обращаться, например, с помощью метода FindComponent.

[Karsh]

Nyctos Kasignete, точно. Я как-то и не подумал.
На всякий случай поясню, как пользоваться FindComponent

Код:

if (FindComponent('cb12') as TCheckBox).Checked then ...

[Ferra]

эээ, товарисч. Сначала ищем. Потом проверяем, нашли ли хоть что-то? (<>nil) И только затем - свойства. Иначе получите ошибку и непонятно в чём проблема будет.

Правильно (я бы) оформил так

Код:

var
 Component : TObject;
begin
Component := Form1.FindComponent('CheckBox1');
 if Component <> nil then
  with TCheckBox(Component) do Checked:=True;
end;

Как вариант для непонятливых

Код:

var
 Component : TObject;
begin
Component := Form1.FindComponent('CheckBox1');
 if Component <> nil then
  TCheckBox(Component).Checked:=True;
end;

Либо сразу с приведение типов искать TCheckBox элемент.


PS> Пардон, не заметил. Все ЧекБоксы расположены на Form4.Panel3 (судя по коду вверху). Потому и искать надо на этой панельке. Посему Form1.FindComponent заменяй на Form4.Panel3.FindComponent

[WMaxaW]

Всем пасиба за помощь ))
Ув. Админы на счет тегов извеняюсь , обещяю исправиться.