Как прервать выполнение операции?

[iskurt]

Есть форма Form1, на ней кнопочка Button1 с выполнением операции, продолжительной... подскажите, как правильно писать форму, чтобы можно было прервать операция к примеру кнопкой Cancel?
Нужно писать обработчик в другой форме? Может нужно отдельный Unit или для этого нужно создавать DLL?

Заранее благодарен... Денис.

[russian-stalker]

Здесь либо в цикле этой самой операции делать проверку или использовать потоки.

[Grag]

Сообщение от iskurt

Есть форма Form1, на ней кнопочка Button1 с выполнением операции, продолжительной... подскажите, как правильно писать форму, чтобы можно было прервать операция к примеру кнопкой Cancel?
Нужно писать обработчик в другой форме? Может нужно отдельный Unit или для этого нужно создавать DLL?

Заранее благодарен... Денис.

ИМХО... Лично я делал так в своих программах, см. рисунок.
Добавлял в панель инструментов две кнопочки "Пауза" и "Стоп" (по желанию заказчика).
А в теле процедур ловил флаги от нажатия этих кнопок, вот пример кода

                  while flgPause do
                    begin
                      Sleep(1000);//пауза в выполнении...
                      Application.ProcessMessages
                    end;
                  if flgStop then
                    begin
                      Stoping;
                      Exit
                    end;

Stoping - процедура обработки прекращения некоторых действий программы...

Untitled2.jpg

[iskurt]

вроде идеи неплохие, но вот проблема, когда выполняется операция, вообще никакие кнопки не активны, полностью приложение подвисает.... типа "Программа не отвечает"

[iskurt]

вобщем, спрошу по другому.... можно ли перенести процедурку в "другой" (файл, модуль...) чтобы потом его прервать?

[Grag]

Сообщение от iskurt

вроде идеи неплохие, но вот проблема, когда выполняется операция, вообще никакие кнопки не активны, полностью приложение подвисает.... типа "Программа не отвечает"

Для этого есть Application.ProcessMessages

[iskurt]

ВО! это уже что-то.... теперь мне просто в процедуре нужно поставить проверку флага типа "отмена"? я так понял?

[iskurt]

Сообщение от Grag

Для этого есть Application.ProcessMessages

СУПЕР - ПОЛУЧИЛОСЬ ТАК КАК ХОТЕЛ!!!!

[iskurt]

мда..... только процедура стала полным тормозом.....
Ребята, а что там на счет потоков....?

[russian-stalker]

http://www.delphikingdom.com/asp/vie...catalogid=1370