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

Вниз

Как остановить обработчик?   Найти похожие ветки 

 
declik   (2004-04-18 13:01) [0]

Как остановить обработчик? К примеру, когда выполняется программа, нужно вывести сообщение и остановить программу и ждать следующего события. (Пользователь ввёл не верные данные (ShowMessage("Неверно")) и остановить программу, (что бы рользователь ввёл другое значение) и ждать следущего события(нажатие на кнопку)).


 
Андрей Сенченко ©   (2004-04-18 13:15) [1]

по-моему так ...

If MessageBox(Application.Handle,
            ,pchar("Ошиблись вы, батенька. Давайте по-новой")
            ,pchar("Фигня вышла")
            ,MB_OKCANCEL+MB_ICONSTOP  
            ) = IDCANCEL
Then
 begin
   Нужная_форма.нужный_эдит.setfocus;
   EXIT;
 end
Else
 showmessage("ну как хотите ... Но вы неправы");

выделенный жирным EXIT предполагает, что Ваш обработчик написан в отдельной процедуре или функции.


 
declik   (2004-04-18 14:38) [2]

Да, но при этом он закрывает форму. А хотелось бы, что бы эта форма не закрывалась и всё происходило в ней.


 
Anatoly Podgoretsky ©   (2004-04-18 14:39) [3]

Тогда не делай Exit


 
declik   (2004-04-18 14:41) [4]

Ну да, я в конце просто CLOSE поставил. А видимо надо проверку поставить на то, что всё пыполнено правильно. :))


 
Андрей Сенченко ©   (2004-04-19 10:52) [5]

declik   (18.04.04 14:41) [4]

Я же специально для Тебя выделил условие применения EXIT. Видимо придется выделить иначе.

Применение EXIT при таком методе остановки обработчика предполагает, что этот обработчик написан в отдельной процедуре ( функции ). В этом и только в этом случае EXIT прервет процедуру и вернет управление основной программе.



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

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

Наверх




Память: 0.48 MB
Время: 0.03 c
7-1075448725
Прямой
2004-01-30 10:45
2004.04.11
Как открыть дисковое устройство


14-1079444252
Fredericco
2004-03-16 16:37
2004.04.11
Выложены еще одни фотки с последней MMP.


3-1081592370
Mouse
2004-04-10 14:19
2004.04.11
Как выделить нужную строку в DBGrid по нажатию на кнопку?


4-1075728553
frost
2004-02-02 16:29
2004.04.11
TrackPopupMenu ?


14-1079688206
Ihor Osov'yak
2004-03-19 12:23
2004.04.11
NAT + personal firewall = trounle