Текущий архив: 2004.04.11;
Скачать: CL | DM;
Вниз
Как остановить обработчик? Найти похожие ветки
← →
declik (2004-04-18 13:01) [0]Как остановить обработчик? К примеру, когда выполняется программа, нужно вывести сообщение и остановить программу и ждать следующего события. (Пользователь ввёл не верные данные (ShowMessage("Неверно")) и остановить программу, (что бы рользователь ввёл другое значение) и ждать следущего события(нажатие на кнопку)).
← →
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 предполагает, что Ваш обработчик написан в отдельной процедуре или функции.
← →
Андрей Сенченко © (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]Да, но при этом он закрывает форму. А хотелось бы, что бы эта форма не закрывалась и всё происходило в ней.
← →
declik (2004-04-18 14:38) [2]Да, но при этом он закрывает форму. А хотелось бы, что бы эта форма не закрывалась и всё происходило в ней.
← →
Anatoly Podgoretsky © (2004-04-18 14:39) [3]Тогда не делай Exit
← →
Anatoly Podgoretsky © (2004-04-18 14:39) [3]Тогда не делай Exit
← →
declik (2004-04-18 14:41) [4]Ну да, я в конце просто CLOSE поставил. А видимо надо проверку поставить на то, что всё пыполнено правильно. :))
← →
declik (2004-04-18 14:41) [4]Ну да, я в конце просто CLOSE поставил. А видимо надо проверку поставить на то, что всё пыполнено правильно. :))
← →
Андрей Сенченко © (2004-04-19 10:52) [5]declik (18.04.04 14:41) [4]
Я же специально для Тебя выделил условие применения EXIT. Видимо придется выделить иначе.
Применение EXIT при таком методе остановки обработчика предполагает, что этот обработчик написан в отдельной процедуре ( функции ). В этом и только в этом случае EXIT прервет процедуру и вернет управление основной программе.
← →
Андрей Сенченко © (2004-04-19 10:52) [5]declik (18.04.04 14:41) [4]
Я же специально для Тебя выделил условие применения EXIT. Видимо придется выделить иначе.
Применение EXIT при таком методе остановки обработчика предполагает, что этот обработчик написан в отдельной процедуре ( функции ). В этом и только в этом случае EXIT прервет процедуру и вернет управление основной программе.
Страницы: 1 вся ветка
Текущий архив: 2004.04.11;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.033 c
