[sheffdop]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;                   //Переменная для цикла i
  ArPanel: array of TControl;   //Динамический массив TControl
  Vis: boolean;                 //Переменная, показывающая скрытость или видимость
  r: integer;                   //Переменная, содержащая рандомное значение
begin

  //Цикл для нахождения и помещения в дин. массив TControl-ов
  for i := 0 to Form1.ControlCount -1 do
  if Form1.Controls[i] is TPanel then
    begin
      SetLength(ArPanel, High(ArPanel) + 2);      //Установка размера массива большего на 1
      ArPanel[High(ArPanel)] := Form1.Controls[i];
    end;

  Randomize;

  //Фрагмент нужен для того, чтобы не показывать панел второй раз
  Repeat
    r := Random(High(ArPanel) - Low(ArPanel) +1);
    Vis := ArPanel[r].Visible;
    ArPanel[r].Show;
  Until not Vis ;

end;

этот код перебирает в произвольном порядке все панели. и все замечательно, если панели раскиданы по форме. а вот если панели накладывать одну на другую, то почему-то работает не корректно... с чем может быть это связано?

[lmikle]

Как некорректно работает-то?
А связанно это, видимо, с тем, что панель это тоже контейнер и может содержать другие панели и надо бы учитывать этот момент.

[sheffdop]

lmikle, ну может показывать одну панель подряд несколько раз, в общем непонятно.

[Black Raider]

Попробуй так

Код:

for i := 0 to Form1.ComponentCount - 1 do
  if Form1.Component[i] is TPanel then
    begin
      SetLength(ArPanel, High(ArPanel) + 2);      //Установка размера массива большего на 1
      ArPanel[High(ArPanel)] := Form1.Controls[i];
    end;

[sheffdop]

Black Raider, не помогло...

[Black Raider]

Сообщение от sheffdop

Black Raider, не помогло...

А как панели создаются? Код создания в студию.

[sheffdop]

да панели не в коде создаются, а ручками) видимо я изначально не верно сформулировал вопрос

[Black Raider]

попробуй так:

Код:

procedure TForm1.vPanel(comp:Tcomponent);
begin
  if (comp is TPanel) then begin
   (comp as TPanel).Visible:=true;
   if (comp as Tpanel).Parent is Tpanel then vPanel((comp as Tpanel).Parent);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,k: integer;                   //Переменная для цикла i
  ArPanel: array of TControl;   //Динамический массив TControl
  Vis: boolean;                 //Переменная, показывающая скрытость или видимость
  r: integer;                   //Переменная, содержащая рандомное значение
begin

  //Цикл для нахождения и помещения в дин. массив TControl-ов
  for i := 0 to Form1.ComponentCount -1 do
  if Form1.components[i] is TPanel then
    begin
      SetLength(ArPanel, High(ArPanel) + 2);      //Установка размера массива большего на 1
      ArPanel[High(ArPanel)] := (Form1.components[i] as Tcontrol);
    end;

  Randomize;

  //Фрагмент нужен для того, чтобы не показывать панел второй раз
  k:=0;
  Repeat
    r := Random(High(ArPanel) - Low(ArPanel) +1);
    Vis := ArPanel[r].Visible;
    vpanel(ArPanel[r]);//.Show;
  k:=k+1;
  Until (not Vis )or (k=100);

end;

[sheffdop]

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

[lmikle]

Значится так.
Выбрасывай свой код нафиг, т.к. у тебя там несколько проблем, которые так просто не решишь. Тебе надо показать ВСЕ панели случайным образом. Так?

Код:

procedure TForm1.ShowPanels(APanels : Array Of TPanel);
var
  I, Idx : Integer;
begin
  For I := Low(APanels) To High(APanels) Do
    Begin
       Idx := Random(Length(APanels));
       While APanels[Idx].Visible Do
           Begin
              Inc(AIdx);
              If Idx = High(APanels)+1 Then AIdx := Low(APanels);
           End;
       APanels[Idx].Visible := True;
    End;
end;

Что делает код.
Он выполняет цикл столько раз, скольно у тебя панелей.
Внутри каждой итерации он генерит случайный индекс панели в их, панелей, массиве. Далее, если панель уже видима, то он циклически сдвигает этот индекс на 1, пока не найдет первую невидимую панель. Тогда он делает ее видимой и переходит к следующей итерации внешнего цикла.

Ну а массив панелей ты и так умеешь собирать. Не вставлял этот код для простоты понимания.

[sheffdop]

lmikle, спасибо, разобрался
Тема закрыта!