Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.038 c
3-1081745181
[matrix]MaroudeR
2004-04-12 08:46
2004.05.09
Где взять полный FIBPlus?


1-1082717576
Roman_M
2004-04-23 14:52
2004.05.09
Работа с dll из Дельфей 3-х и 6-х.


8-1076255934
rentgen
2004-02-08 18:58
2004.05.09
Удалить пиксель?


8-1075903834
Urvin
2004-02-04 17:10
2004.05.09
КОЛИЧЕСТВО Цветов


3-1080837527
Хохол
2004-04-01 20:38
2004.05.09
Права доступа





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский