Скачать: CL | DM;

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

← →
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] доработать напильником)))) это дз)

---

← →
Leonid Troyanovsky ©   (2009-08-25 10:11) [6]

> 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.

---

← →
MsGuns ©   (2009-08-25 15:59) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c