| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Все свободны. А Вас, Штирлиц, я попрошу задержаться. [D5, Win95/98, NT4]
Дремучий © (2001-11-09 14:43:00)старенькое - repeat until FKeyPressed; должно же быть приемлемое решение?
TSplash
private
.....
procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN;
.....
procedure TSplash.WMKeyDown(var Message: TWMKeyDown);
begin
if not DoKeyDown(Message) then inherited;
FKeyPressed:= true;
end;
procedure TSpl.Show;
begin
....
//цикл задержки до нажатия клавиши
FKeyPressed:= false;
repeat until FKeyPressed;
//FKeyPressed никогда не становится true
//как сделать такую задержку?
end;
как сделать такую задержку?
TAndrew (2001-11-09 15:32:00) [1]это так, иначе все процессорное время сожрет :) а вот успеет ли юзер клавишу нажать? может, в цикл небольшую задержку поставить, скажем, по таймеру?
Дремучий (2001-11-09 15:32:00) [2]
а можно ли как-то ? сделать фильтацию сообщений для ProcessMessages, типа
Application.ProcessMessages(WM_KEYDOWN);
Digitman (2001-11-09 14:49:00) [3]repeat
Application.ProcessMessages;
until FKeyPressed;
| |
