|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
показ случайной формы
Доброго времени суток, знатоки !
Кто посоветует как осуществить случайный показ формы, есть несколько форм (например 25), сначала видна одна , остальным назначенно свойство Visible:=False, как сделать чтоб при закрытии или сокрытии этой формы , показывалась случайная форма из числа скрытых, при этом чтоб они не повторялись |
#2
|
||||
|
||||
Используй массив форм.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
|||
|
|||
А как уже созданные формы заключить в массив ?
Ведь вроде это допустимо только когда я их в реал тайм создаю , вроде... Может код примера есть ? |
#4
|
|||
|
|||
Естесвенно, это можно сделать только во время выполнения программы.
Я бы советовал убрать формы из автокриэйта и создавать их руками в 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; |