1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Оператор условия

Тема в разделе "Delphi - программирование", создана пользователем nattaella, 30 июн 2011.

  1. nattaella

    nattaella Гость

    Репутация:
    0
    Как мне можно запрограммировать выражение "если произошло событие, то что-то исполняется"? Например, при нажатии пользователем в процессе работы программы раздела 1 меню компонента TmainMenu какая-то исполняется процедура....
    Код:
    
    
    procedure TForm1.Zvuk;
    begin
    if N1.Click then Bomb;
    end;
    Код:
    
    
    Мне это нужно для того, чтобы если пользователь выбрал к примеру флажок "Со звуком"(N1.Click), то воспроизводится звук бомбы (Bomb), который есть в нескольких процедурах и будет воспроизводиться не один раз.
     
  2. nayke

    nayke Well-Known Member

    Репутация:
    0
    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    На событие N1.OnClick вешаете код процедуры Bomb при нажатии на элемент процедура выполнится.
    Если при этом выбирается какая-нить настройка и предположим у вас объектной структуры нет, то можно сохранить в глобальную переменную например CurrentVolume или другую и проверять ее значение где вам необходимо.
     
Загрузка...

Поделиться этой страницей