как отловить нажатие кнопки на сообщении?

[kate158]

вот к примеру появляется у меня messagedlg, как мне отловить ситуацию, что юзер закрыл это сообщение?

[Luuzuk]

как мне отловить ситуацию, что юзер закрыл это сообщение?

Выполнится следующая за вызовом "MessageDlg " строчка программы
Если нужно знать как именно пользователь закрыл окно (какую кнопку нажал), то обработайте ModalResult, который вернул MessageDlg

[_SERGEYX_]

  case MessageDlg('Вы уверены в своих действиях?',  mtConfirmation,
    mbYesNoCancel, 0) of
    mrCancel:
      begin

      end;
    mrYes:
      begin

      end;
    mrNo:
      begin

      end;
  end;

Я обычно пишу так:

 if MessageDlg('Confirm?',  mtConfirmation, [mbYes, mbNo], 0) <> mrYes then Exit;

[kate158]

ок. а еще вопрос. как организовать счетчик по количеству показанных сообщений?
у меня стоит таймер, и по нему через 30 секунд вылезает сообщение. если пользователь соглашается, то сообщение больше не будет показано (в базу пишется 1). если не соглашается, то оно вылазит каждые 30 секунд.
как сделать так: прошло 30 секунд, пользователь увидел сообщение и единожды нажал на кнопку cancel?
прошло снова 30 секунд, и никаких сообщений нет
а то получается у меня если юзер выбирает кнопку cancel, то сообщение будет вылазить каждые 30 секунд, пока юзер не нажмет да.

в общеМ, кто нибудь меня понял?))
таймер стоит для автоматической проверки изменений в бд

[evg_m]

если пользователь соглашается, то сообщение больше не будет показано

т.е. где-то стоит(ставится) блокирока/удаление таймера.

если юзер выбирает кнопку cancel, то сообщение будет вылазить каждые 30 секунд,

кто мешает в этом случае также выполнить аналогичную блокировку таймера.

[Аватар]

А таймер зачем вообще? Один раз сообщение и пользователь соглашается или нет. Если уж по таймеру, то как-то прекращаете цикл по 'да', аналогично прекратить и по cancel или нет

[kate158]

таймер нужен, чтобы проверять были ли изменения в бд. если были, появляется сообщение.
так вот сидит юзер, и через 30 сек у него начинают всплывать окна, и те что он видел пока работал в проге, но не стал отвечать "да", и новые
вот мой

procedure TForm1.Timer1Timer(Sender: TObject);
...
if ((dm.notedomain_name.AsString = GetUserFromWindows) and
      (dm.NOTESTATUS.asboolean = false)) then
    begin
      case MessageDlg('У вас есть новые записки! Пометить как прочтенные?', mtConfirmation,
        [mbYes, mbNo], 0) of
        mrCancel:
          begin
            Abort
          end;
        mrYes:
          begin
            if dm.dbl_note.Active then dm.dbl_note.Close;
            dm.dbl_note.SQL.Clear;
            dm.dbl_note.SQL.add('update dbo.note set status=1 where id_note=' +
              dm.noteid_note.AsString);
            dm.dbl_note.ExecSQL;
            dm.NOTE.Close;
            dm.NOTE.Open;
          end;
        mrNo:
          begin
            RxTrayIcon1.animated := true;
            RxTrayIcon1.Hint := 'Имеются записки, не выполненные в срок!';
            Abort
          end;
      end;
    end;

[evg_m]

так вот сидит юзер, и через 30 сек у него начинают всплывать окна, и те что он видел пока работал в проге, но не стал отвечать "да", и новые

Отключать таймер сразу по входе в процедуру. До показа сообщения. Теперь пока пользователь не отреагирует никаких новых сообщений показано быть не может. А после реакции пользователя на сообщение можно включить таймер снова, если это конечно нужно.

[_SERGEYX_]

Упаси боже нас от программ, где каждые 30 секунд вылазит сообщение. Хватит с нас и интернетовской рекламы... Сори за офтоп.

[DiemonStar]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := (MessageDlg('У вас есть новые записки! Пометить как прочтенные?', mtConfirmation, [mbYes, mbNo], 0) = mrNo);
end;

и ничего кроме не нужно...