Как повесить несколько событий на if

Как повесить несколько событий на if
Существует кусочек кода:
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= True;
if MessageDlg (('Внимание! После нажатия кнопки Начать Тест, Вы не сможете его прервать! Вы действительно хотите этого?'), mtConfirmation, [mbOK, mbCancel],0) = mrOK then
Button1.Enabled:= False;
Button1.Caption:= 'Тестирование в процессе';
if MessageDlg (('Внимание! После нажатия кнопки Начать Тест, Вы не сможете его прервать! Вы действительно хотите этого?'), mtConfirmation, [mbOK, mbCancel],0) = mrOK then
Form3.Show;
if MessageDlg (('Внимание! После нажатия кнопки Начать Тест, Вы не сможете его прервать! Вы действительно хотите этого?'), mtConfirmation, [mbOK, mbCancel],0) = mrOK then
Timer2.Enabled:= True;
end;

Как сделать так, чтобы сообщение выводилось только 1 раз? То есть как на один if повесить несколько событий? Если вешать все в ряд через ";" то они не выполнятся. Надо избавится от 2-х If-ов. Помогите пожалуйста...

  • Тут есть два варианта, желательно знать оба:
    1. Сохранить значение в переменной. В данном случае неудачно, но вообще полезно.
    var accept:boolean;//объявили переменную логического типа
    ...
    accept := MessageDlg (('Внимание! После нажатия кнопки Начать Тест, Вы не сможете его прервать! Вы действительно хотите этого? '), mtConfirmation, [mbOK, mbCancel],0) = mrOK;//сохранили в эту переменную результат работы функции
    if accept then ...//а теперь проверяем это значение
    2. Операторные скобки begin ...end объединяют несколько операторов в т. н. сложный оператор:
    if условие then begin
    действие_1;
    действие_2;
    ...
    действие_n
    end;
    Условие будет проверено один раз, если оно истинно - то будут выполнены все действия между begin и end. Кстати, точка с запятой перед end в паскале не обязательна.
  • Надо заключать эти несколько событий в операторные скобки begin ...end
    Тогда они считаются одним составным оператором.
  • Цикл или кавычки { } попробуй.
    А вообще выводишь сообщение, а потом ставь иф и элс.