MessageBox с секундами

Posted by obzor under Delphi

Подскажите пожалуйста, есть ли возможность в стандартный MessageBox добавить кнопку ДА/НЕТ с обратным отсчетом секунд или необходимо свою форму писать?

Arigato

Просто наброска в качестве демонстрации, для использования на практике требует доработок:

    Timeout: Integer;
    NoButton: HWND;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timeout := 10;
  NoButton := 0;
  TimeoutTimer.Interval := 1;
  TimeoutTimer.Enabled := True;
  if MessageBox(Handle, 'Вы уверены в этом?', 'Запрос', MB_ICONQUESTION+MB_YESNO) = MRYES
    then ShowMessage('Да')
    else ShowMessage('Нет');
end;

procedure TForm1.TimeoutTimerTimer(Sender: TObject);
var
  Wnd: HWND;
begin
  if NoButton = 0 then begin
    Wnd := FindWindow('#32770', 'Запрос');
    if Wnd <> 0 then begin
      NoButton := FindWindowEx(Wnd, 0, 'Button', '&Нет');
    end;
    if NoButton = 0 then begin
      TimeoutTimer.Enabled := False;
      Exit;
    end;
    TimeoutTimer.Interval := 1000;
  end;
  SetWindowText(NoButton, PChar('&Нет (' + IntToStr(Timeout) + ')'));
  Dec(Timeout);
  if Timeout < 0 then begin
    TimeoutTimer.Enabled := False;
    TimeoutTimer.Interval := 1;
    PostMessage(NoButton, BM_CLICK, 0, 0);
    NoButton := 0;
  end;
end;

тема на форуме

Похожие статьи

• Клик мышью в свернутом webbrowser
• Защита объектов в Windows. Обновление в блоге программистов
• Как программно вызвать щелчок мышью в TWebBrowser
• Запрет alt + f4
• Как программно закрыть пуск
• Как вызывать WIN API в C#?
• Как узнать сколько занимает памяти программа?
• Получить список DSN средствами WinApi
• Заблокировать рабочее место.
• Рисование многоугольника мышкой