Все свободны. А Вас, Штирлиц, я попрошу задержаться.

← →
Дремучий © (2001-11-09 14:43) [0]

старенькое - 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;

как сделать такую задержку?

← →
Digitman © (2001-11-09 14:49) [1]

repeat
Application.ProcessMessages;
until FKeyPressed;

← →
TAndrew © (2001-11-09 15:32) [2]

это так, иначе все процессорное время сожрет :) а вот успеет ли юзер клавишу нажать? может, в цикл небольшую задержку поставить, скажем, по таймеру?

а можно ли как-то ? сделать фильтацию сообщений для ProcessMessages, типа
Application.ProcessMessages(WM_KEYDOWN);

Все свободны. А Вас, Штирлиц, я попрошу задержаться. Найти похожие ветки