Конференция "Прочее" » переход по формам в случайном порядке [D7, WinXP]
 
  • Igor5 © (24.08.09 20:53) [0]
    Суть проблемы: в одном проекте создано 5 форм. Первая форма главная, на которой расположены кнопки (Button) для работы, на остальных 4-х формах различная инфа(но это не важно). Подскажите работающий алгоритм, который при нажатии кнопки (Button) на первой форме randomom откроет в случайном порядке только одну из остальных 4-х.
  • Медвежонок Пятачок © (24.08.09 21:29) [1]
    Подскажите работающий алгоритм,

    Убрать три формы. Показывать только одну.
    Меняя "различную инфу" на ней.
  • DimaBr © (25.08.09 08:33) [2]
    Внимание! Здесь обсуждаются вопросы, связанные с разработкой компонентов, редакторов свойств, редакторов компонентов и экспертов IDE.
    Вопросы по поиску и использованию готовых компонентов, редакторов или экспертов являются нарушением тематики и могут быть удалены.
  • SPeller © (25.08.09 08:46) [3]
    Ёпта, "работающий алгоритм" не сложнее алгоритма кидания батона на форму. Вот народ пообленился...
  • brother © (25.08.09 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 © (25.08.09 09:17) [5]
    если оно, то код [4] доработать напильником)))) это дз)
  • Leonid Troyanovsky © (25.08.09 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 © (25.08.09 15:59) [7]
    1. Зачем создавать 5 форм если неизвестно будут ли показана хоть одна кроме главной, а если даже и будет, то почему не создавать ее динамически перед показом ?
    2. Зачем форма только с кнопками если это не МДИ форма ?
    3. Почему для показа всех форм используется одна кнопка ?
    4. С какой целью показывается случайная форма, т.е. пользователь должен кликать до тех пор, пока "выпадет" нужная ?
    5. Какова практическая ценность сабжа ?
 
Конференция "Прочее" » переход по формам в случайном порядке [D7, WinXP]
Есть новые Нет новых   [134467   +9][b:0][p:0.001]