Приостановка программы

@zuxa-zuxa · Регистрация: 15.02.2012

Студворк — интернет-сервис помощи студентам

Не могу найти решение моей проблемы.
Моя программа делает некие преобразования над файлом.
После преобразования нужно чтобы программа приостановилась, задала вопрос:"решена ли проблема?". Пользователь проверяет файл, и после если нажимает да то выходим из програмки, если нет то продолжаем делать преобразования.

Кусочек кода:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
for i:=j to max do
begin
 
    inc(v);
    if v=strtoint(form1.Edit4.Text)+1 then
    begin
      j:=i;
      showmessage('123');
      exit;
    end;
 
 if max=i then bb:=true;
 
........
 
end;

Цикл вызывается так:

Delphi
1
2
3
4
5
  while bb=false do
  begin
   v:=0;
   cikl;
  end;

Вот вместо остановки за счет showmessage нужна остановка с диалоговым окном и некими действиями в зависимости от результата ответа в окне.

У меня пока что идея только останавливаться showmessage и в какой либо файл записывать ДА или НЕТ. И программа от текста в файле решит что делать.

@northener · 13.09.2013, 22:18

Сообщение от zuxa-zuxa

Вот вместо остановки за счет showmessage нужна остановка с диалоговым окном и некими действиями в зависимости от результата ответа в окне.

Ну так добавьте в проект форму с нужным функционалом и вызывайте её с помощью ShowModal.

@Rashiran · 13.09.2013, 23:04

Изучать функцию MessageDlg.

Delphi
1
2
3
4
5
6
7
8
9
10
if MessageDlg(
    'Решена ли проблема?', mtConfirmation, [mbYes, mbNo], 0
  ) = mrYes then
begin
  //здесь пишешь действия, если нажата "Yes"
end
else
begin
  //здесь пишешь действия, если нажата "No"
end;

@zuxa-zuxa · 14.09.2013, 12:20 **[ТС]**

Rashiran, огромное спасибо!

murderer · 18.09.2013, 10:28

Не используйте MessageDlg, для этого есть MessageBox

Delphi
1
2
if MessageBoxW(Form1.Handle,'Решена ли проблема?','',MB_APPLMODAL+MB_ICONQUESTION+MB_YESNO)=IDYES then
  ExitProcess(0);

@volvo · 18.09.2013, 11:11

Не используйте WinAPI там, где можно обойтись без него...

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@zuxa-zuxa Мишка Косолапый :) 285 / 255 / 86 Регистрация: 15.02.2012 Сообщений: 1,511
	14.09.2013, 12:20 [ТС]
	Rashiran, огромное спасибо! 0

@volvo Супер-модератор 33398 / 21508 / 8236 Регистрация: 22.10.2011 Сообщений: 36,906 Записей в блоге: 12
	18.09.2013, 11:11
	Не используйте WinAPI там, где можно обойтись без него... 0