-
Суть проблемы: в одном проекте создано 5 форм. Первая форма главная, на которой расположены кнопки (Button) для работы, на остальных 4-х формах различная инфа(но это не важно). Подскажите работающий алгоритм, который при нажатии кнопки (Button) на первой форме randomom откроет в случайном порядке только одну из остальных 4-х.
-
Подскажите работающий алгоритм,
Убрать три формы. Показывать только одну. Меняя "различную инфу" на ней.
-
Внимание! Здесь обсуждаются вопросы, связанные с разработкой компонентов, редакторов свойств, редакторов компонентов и экспертов IDE. Вопросы по поиску и использованию готовых компонентов, редакторов или экспертов являются нарушением тематики и могут быть удалены.
-
Ёпта, "работающий алгоритм" не сложнее алгоритма кидания батона на форму. Вот народ пообленился...
-
... 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; оно?
-
если оно, то код [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. Какова практическая ценность сабжа ?
|