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

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

  1. nattaella

    nattaella Гость

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

    nayke Well-Known Member

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

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