переход по формам в случайном порядке

← →
Igor5 © (2009-08-24 20:53) [0]

Суть проблемы: в одном проекте создано 5 форм. Первая форма главная, на которой расположены кнопки (Button) для работы, на остальных 4-х формах различная инфа(но это не важно). Подскажите работающий алгоритм, который при нажатии кнопки (Button) на первой форме randomom откроет в случайном порядке только одну из остальных 4-х.

← →
Медвежонок Пятачок © (2009-08-24 21:29) [1]

Подскажите работающий алгоритм,

Убрать три формы. Показывать только одну.
Меняя "различную инфу" на ней.

← →
DimaBr © (2009-08-25 08:33) [2]

Внимание! Здесь обсуждаются вопросы, связанные с разработкой компонентов, редакторов свойств, редакторов компонентов и экспертов IDE.
Вопросы по поиску и использованию готовых компонентов, редакторов или экспертов являются нарушением тематики и могут быть удалены.

← →
SPeller © (2009-08-25 08:46) [3]

Ёпта, "работающий алгоритм" не сложнее алгоритма кидания батона на форму. Вот народ пообленился...

← →
brother © (2009-08-25 09:12) [4]

...
form1create:
begin
randomize;
...
end;

..
button1click:
var I: Integer;
begin
I:= random(4)
case I of
0: Form2.ShowModal;
1: Form3.ShowModal;
2: Form4.ShowModal;
3: Form5.ShowModal;
end;
end;
оно?

← →
brother © (2009-08-25 09:17) [5]

если оно, то код [4] доработать напильником)))) это дз)

> Igor5 © (24.08.09 20:53)

> Подскажите работающий алгоритм, который при нажатии кнопки
> (Button) на первой форме randomom откроет в случайном порядке
> только одну из остальных 4-х.

procedure TForm1.Button1Click(Sender: TObject); var j: Longint; begin j := Random(Screen.FormCount); if Screen.Forms[j] = Self then j := (j+1) mod Screen.FormCount; Screen.Forms[j].Show; end;
--
Regards, LVT.

1. Зачем создавать 5 форм если неизвестно будут ли показана хоть одна кроме главной, а если даже и будет, то почему не создавать ее динамически перед показом ?
2. Зачем форма только с кнопками если это не МДИ форма ?
3. Почему для показа всех форм используется одна кнопка ?
4. С какой целью показывается случайная форма, т.е. пользователь должен кликать до тех пор, пока "выпадет" нужная ?
5. Какова практическая ценность сабжа ?

переход по формам в случайном порядке Найти похожие ветки