[crazyman]

Всем привет! Добавляю чекбоксы в групбокс. Подскажите можно ли как-то добавить их в виде двумерного массива (мне нужно разместить 200 чекбоксов по 20 в строке из 10 строк). Кусок моего кода.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

... var   FPass: TFPass;   NChB: TCheckBox;   ...   procedure TFPass.FormCreate(Sender: TObject); var i:integer; NChB: Array of TCheckBox; begin SetLength(NChB,i+1); SetLength(NChB,j+1); for i := 0 to 19 do begin NChB[i] := TCheckBox.Create(GroupBox2); NChB[i].Top:=80; NChB[i].Left:= 220+(i*35); NChB[i].Parent:=GroupBox2; NChB[i].Name:='NChB'+IntToStr(i+1); NChB[i].Caption:=IntToStr(i+1); NChB[i].Visible:=True; NChB[i].BringToFront; end;

[lmikle]

Ну, у тебя почти получилось:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

unit Unit1;   interface   uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     gbCheckboxes: TGroupBox;     procedure Button1Click(Sender: TObject);   private     { Private declarations }     ACB : Array [1..20,1..10] Of TCheckBox;   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var   I, J : Integer; begin   For J := 1 To 10 Do     For I := 1 To 20 Do       Begin         ACB[I,J] := TCheckBox.Create(Self);         ACB[I,J].Width := ACB[I,J].Height + Self.Canvas.TextWidth('888');         ACB[I,J].Top := 16 + (J-1)*(ACB[I,J].Height+8);         ACB[I,J].Left := 8 + (I-1)*(ACB[I,J].Width+8);         ACB[I,J].Caption := IntToStr((J-1)*20 + I);         ACB[I,J].Parent := gbCheckboxes;       End; end;   end.

PS. Мне по кнопке удобнее отлаживать.

[crazyman]

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

[lmikle]

Точно так же, как они создаются:

Код:

1 2	... if ACB[1,1].Checked Then ...

Если надо обращаться по порядковому номеру, то, например, через такую функцию:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

function TForm1.CheckBoxByNumber(N : Integer) : TCheckBox; var   I, J : Integer; begin   I := ((N-1) div 20) + 1;   J := N - (I-1) * 20   Try     Result := ACB[I,J];   Except       Result := Nil;   End; end;

Вроде так.