|
Попробуй так
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FCheckboxes: TList;
function GetCheckbox(Index: integer): TCheckbox;
public
property Checkboxes[Index: integer]: TCheckbox read GetCheckbox;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
AComponent: TComponent;
begin
FCheckboxes := TList.Create;
{ ТАКЖЕ: это собирает все CheckBox в порядке очередности }
for i := 0 to ComponentCount - 1 do
if Components[i] is TCheckbox then
FCheckboxes.Add(Components[i]);
{ ИЛИ: если они имеют имя CheckboxNN и вы хотите
разместить их в массиве в том же порядке... }
{for i := 1 to MaxInt do begin
AComponent := FindComponent( 'Checkbox' + IntToStr( i ) ) ;
if AComponent = NIL then break ;
FCheckboxes.Add( AComponent ) ;
end ;}
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FCheckboxes.Free;
end;
function TForm1.GetCheckbox(Index: integer): TCheckbox;
begin
Result := TCheckbox(FCheckboxes[Index]);
end;
|