Форум: "Основная";
Текущий архив: 2003.07.14;
Скачать: [xml.tar.bz2];
ВнизВопрос по 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c