Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.14;
Скачать: CL | DM;

Вниз

Вопрос по 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 ? :)


 
Юрий Федоров ©   (2003-07-02 13:41) [5]

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


 
panov ©   (2003-07-02 13:43) [6]

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



Страницы: 1 вся ветка

Текущий архив: 2003.07.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-44748
INCOGNITO
2003-06-30 23:36
2003.07.14
Вопрос по TStringGrid


7-44932
velsi
2003-04-29 16:53
2003.07.14
hide and shutdown


1-44750
Alex_x
2003-07-01 15:19
2003.07.14
Try....except не работает


14-44844
Guest_Dmitry
2003-06-24 18:58
2003.07.14
Help по IbSqlMonitor


3-44582
dimm
2003-06-20 14:33
2003.07.14
Есть IbQuery, DataSource и IBUpdateSQL. Вывожу в DBGrid ......