Вопрос по MessageDlg, на который вы легко ответите.

← →
Evg12 (2003-07-02 02:22) [0]

Столкнулся с такой проблемой.
Есть форма.
В определенный момент она вызывеет.
Changebut := MessageDlg("Error!!!"+chr(13)+"Continue?", mtError, [mbYes, mbNo], 0);
if changebut = 7 then exit;
Дальше идет кусок на ассемблере, кушающий изрядно ресурсов и по
времени минуты на 3 расчета.

Что нужно вставить между вызовом MessageDlg и ассемблерной вставкой,
чтоб окно формы обновиться успело? А то след от MessageDlg
накладывается. И совсем не красиво выходит.

← →
Спрашивающий_ (2003-07-02 02:43) [1]

Application.ProcessMessages пробывал

← →
Думкин © (2003-07-02 04:58) [2]

Да можно так.
И еще:
if changebut = 7 then exit;
Так не надо, а вот так
if changebut = mrNo then exit;
Или

> if MessageDlg("Error!!!"+ #10#13 + "Continue?",
> mtError, [mbYes, mbNo], 0) = mrNo then exit;

И держать программу 3 минуты в неотклике - хорошо ли?

← →
Evg12 (2003-07-02 13:39) [3]

to Думкин ©:
> 3 минуты в неотклике - хорошо ли?
Не хорошо. Но код достаточно времякритичный. По другому никак.

Вопрос все еще актуален.

← →
Skier © (2003-07-02 13:41) [4]

>Evg12 (02.07.03 13:39)

> Но код достаточно времякритичный.

А что если посмотреть справку по классу TThread ? :)

>>Вопрос все еще актуален.
см. Спрашивающий_ (02.07.03 02:43)

Тебе же ответитли.
Repaint;
Application.ProcessMessages;

Вопрос по MessageDlg, на который вы легко ответите. Найти похожие ветки