[ffpereverzev]

Спасибо большое за ответ!!!

Сообщение от dr. F.I.N.

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  ComboBox1.Items.Clear;
  ComboBox1.Items.Add('Show all');
  ComboBox1.Items.Add('Hide all');
  for i := Low(Buttons) to High(Buttons) do
  begin
    Buttons[i] := TButton.Create(Self);
    with Buttons[i] do
    begin
      Parent := Self;
      SetBounds(10 + (i - Low(Buttons)) * 80, 50, 70, 25);
      Caption := 'Buttons[' + IntToStr(i) + ']';
      ComboBox1.Items.AddObject(Caption, Pointer(i));
      Show;
    end;
  end;
  ComboBox1.ItemIndex := 0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i: Integer;
begin
  for i := Low(Buttons) to High(Buttons) do
    if ComboBox1.ItemIndex in [0, 1] then
      Buttons[i].Visible := ComboBox1.ItemIndex = 0
    else
      Buttons[i].Visible := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]) = i;
end;

Появилось несколько вопросов по коду:

1.

Код:

for i := Low(Buttons) to High(Buttons) do
  begin
    Buttons[i] := TButton.Create(Self);
    with Buttons[i] do
    begin
      Parent := Self;
      SetBounds(10 + (i - Low(Buttons)) * 80, 50, 70, 25);
      Caption := 'Buttons[' + IntToStr(i) + ']';
      ComboBox1.Items.AddObject(Caption, Pointer(i));
      Show;

Зачем такая конструкция? Мне не надо создавать кнопки. Кнопки, по большому счету, мне вообще не нужны. На данном этапе мне нужна помощь по засовыванию окон RichEdit в массив с последующей обработкой (изменение свойств);

2. Вот эта конструкция

Код:

 if ComboBox1.ItemIndex in [0, 1] then
      Buttons[i].Visible := ComboBox1.ItemIndex = 0

работает только с двумя записями в ComboBox. У меня их, пока что, 16 и будет не совсем удобно перечислять все 16 с условиями отображения.