Главная страница
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.022 c
14-44804
SH
2003-06-27 14:55
2003.07.14
Скринмейты


14-44838
McSimm
2003-06-26 11:31
2003.07.14
Клиент для форумов. Dolphin


1-44669
Vint45
2003-07-02 14:23
2003.07.14
Функции для дин.массивов


14-44909
INTAARI
2003-06-27 12:33
2003.07.14
Где найти информацию по контрольной сумме 8-бит XOR?


14-44890
AlexRush
2003-06-19 18:32
2003.07.14
---|Ветка была без названия|---