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

  • Автор темы nattaella
  • Дата начала
N

nattaella

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

nayke

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