[kaizer131]

Доброго времени суток, знатоки !
Кто посоветует как осуществить случайный показ формы,
есть несколько форм (например 25), сначала видна одна , остальным назначенно свойство Visible:=False, как сделать чтоб при закрытии или сокрытии этой формы , показывалась случайная форма из числа скрытых, при этом чтоб они не повторялись

[Aristarh Dark]

Используй массив форм.

[kaizer131]

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

[lmikle]

Естесвенно, это можно сделать только во время выполнения программы.
Я бы советовал убрать формы из автокриэйта и создавать их руками в OnCreate главной формы:

Код:

type
  TMainForm = class(TForm)
  ...
  private
    AForms : TObjectList;
  end;

procedure TMainForm.Create(...);
begin
  // создаем и заполняем список
  AForms := TObjectList.Create;
  AForms.Add(TForm1.Create(Application));
  AForms.Add(TForm2.Create(Application));
  ...
  AForms.Add(TForm20.Create(Application));

  // Показываем случайную форму
  (AForms[Random(AForms.Count)] As TForm).Show;
end;