Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.01.2010, 04:00   #1
garyanikin
Дизайнер, Кодер.
Пользователь
 
Аватар для garyanikin
 
Регистрация: 31.12.2009
Сообщений: 45
По умолчанию Windows.Beep

Здравствуйте, я только начал изучать делфи и набрёл сначало на просто beep решил узнат что ещё может делать эта функция и нашёл Windows.Beep)))
Ладно ближе к делу, у меян в проге при нажатии на кнопку идёт цикл:
Код:
For a:=1 to 30000 do
Windows.Beep(a,10);
Но когда он идёт, нельзя нажать на другую кнопку что бы выключить программу( Что делать?
Заранее спасибо.
garyanikin вне форума Ответить с цитированием
Старый 04.01.2010, 07:19   #2
The Z
Новичок
Джуниор
 
Регистрация: 04.01.2010
Сообщений: 1
По умолчанию

Цитата:
Что делать?
В конец цикла всунуть Application.ProcessMessages
The Z вне форума Ответить с цитированием
Старый 04.01.2010, 07:47   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

The Z, абсолютно прав, надо разрешить программе обрабатывать события... Тогда все действия будут обрабатываться нормально...
позволю себе ответ The Z проиллюстрировать кодом:
Код:
For a:=1 to 30000 do begin
  Windows.Beep(a,10);
  Application.ProcessMessages;
end;
Serge_Bliznykov вне форума Ответить с цитированием
Старый 04.01.2010, 10:56   #4
garyanikin
Дизайнер, Кодер.
Пользователь
 
Аватар для garyanikin
 
Регистрация: 31.12.2009
Сообщений: 45
По умолчанию

Огромное, спасибо)
garyanikin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Правда ли что Windows xp 64 определяет болше Оперативки чем Windows xp 32 subbota Операционные системы общие вопросы 4 03.06.2012 17:29
Как загрузить Windows-приложение без Windows alexray Компоненты Delphi 4 30.04.2010 14:38
Не работает Beep() talisman-ydachi Помощь студентам 9 04.10.2009 08:18
Разница исполнения под Windows XP и Windows Server 2003? -Nast- Общие вопросы Delphi 0 02.06.2009 09:20
Проблемма с Windows Xp SP3 and Windows eXPended 2008 Feban Windows 5 25.12.2008 17:38