do
{
....
....
Application.ProcessMessages();
//Цикл будет работать до тех пор
// пока не нажмут любую клавишу!
}
while(1==1);
Работа проги до нажатия любой кнопки
Чтобы программа или цикл выполнялись до
тех пор, пока не будет нажата какая-то клавиша??
В консольном приложении я это сделал через
do
{
....
....
//Цикл будет работать до тех пор
// пока не нажмут любую клавишу!
}
while(kbhit()==0);
А как сделать это не в консольном окне??
Делаешь булевскую переменную(в TForm1 или глобальную), и на событие формы onKeyDown присваеваешь ей true(или false:)), в цикле делаешь Application->ProcessMessages(), проверяешь не изменилась ли она, а на выходе возвращаешь старое значение.
Цитата:
Originally posted by kas
Каким образом можно реализовать в Билдере!
Чтобы программа или цикл выполнялись до
тех пор, пока не будет нажата какая-то клавиша??
В консольном приложении я это сделал через
А как сделать это не в консольном окне??
Каким образом можно реализовать в Билдере!
Чтобы программа или цикл выполнялись до
тех пор, пока не будет нажата какая-то клавиша??
В консольном приложении я это сделал через
do
{
....
....
//Цикл будет работать до тех пор
// пока не нажмут любую клавишу!
}
while(kbhit()==0);
А как сделать это не в консольном окне??
do{
}
while( !getch())
Цитата:
Originally posted by kas
А как сделать это не в консольном окне??
А как сделать это не в консольном окне??
Код:
И просто на форме OnClick делаешь Application.Terminate();