Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Работа проги до нажатия любой кнопки

1.8K
03 февраля 2004 года
kas
71 / / 03.02.2004
Каким образом можно реализовать в Билдере!
Чтобы программа или цикл выполнялись до
тех пор, пока не будет нажата какая-то клавиша??

В консольном приложении я это сделал через


    do
    {
    ....
    ....
    //Цикл будет работать до тех пор
    // пока не нажмут любую клавишу!
    }
    while(kbhit()==0);

;)
А как сделать это не в консольном окне??
247
04 февраля 2004 года
wanja
1.2K / / 03.02.2003
Делаешь булевскую переменную(в TForm1 или глобальную), и на событие формы onKeyDown присваеваешь ей true(или false:)), в цикле делаешь Application->ProcessMessages(), проверяешь не изменилась ли она, а на выходе возвращаешь старое значение.
305
04 февраля 2004 года
Kashuk
385 / / 21.02.2003
Цитата:
Originally posted by kas
Каким образом можно реализовать в Билдере!
Чтобы программа или цикл выполнялись до
тех пор, пока не будет нажата какая-то клавиша??

В консольном приложении я это сделал через


    do
    {
    ....
    ....
    //Цикл будет работать до тех пор
    // пока не нажмут любую клавишу!
    }
    while(kbhit()==0);

;)
А как сделать это не в консольном окне??


do{
}
while( !getch())

4
04 февраля 2004 года
mike
3.7K / / 01.10.2002
Цитата:
Originally posted by kas
А как сделать это не в консольном окне??


 
Код:
do
{
....
....
Application.ProcessMessages();
//Цикл будет работать до тех пор
// пока не нажмут любую клавишу!
}
while(1==1);


И просто на форме OnClick делаешь Application.Terminate();
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог