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

[nattaella]

Как мне можно запрограммировать выражение "если произошло событие, то что-то исполняется"? Например, при нажатии пользователем в процессе работы программы раздела 1 меню компонента TmainMenu какая-то исполняется процедура....

procedure TForm1.Zvuk;
begin
if N1.Click then Bomb;
end;

Мне это нужно для того, чтобы если пользователь выбрал к примеру флажок "Со звуком"(N1.Click), то воспроизводится звук бомбы (Bomb), который есть в нескольких процедурах и будет воспроизводиться не один раз.

[Serge_Bliznykov]

в свойствах формы описываете булевскую переменную.
например,

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     isBombSound : boolean;
  public
    { Public declarations }
  end;

на событии создания формы присваиваете начальное значение (либо True, либо False - либо считываете сохранённое из INI файла или реестра - это если вы будете при выходе туда что-то сохранять, разумеется!)

потом, пункт меню "Со звуком"
выполняете

isBombSound := True;

в процедуре, где вызывается звук бомбы (ну пусть это будет в процедуре Bomb
пишете

if isBombSound  then ПроигратьЗвукВзрыва;

всё...