Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Вниз

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


Дремучий   (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]

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



Дремучий   (2001-11-09 15:32) [3]


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





Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.05 c
3-28434           Dreamer               2001-12-08 14:31  2002.01.10  
Есть процедура инициированная DataSource как ее вызвать


3-28420           Ross                  2001-12-08 21:58  2002.01.10  
Проблема со шрифтами


1-28477           Kost                  2001-12-22 10:02  2002.01.10  
Как поворвчивать bitmap


3-28422           andey                 2001-12-09 19:12  2002.01.10  
пересчет полей


1-28491           MK                    2001-12-21 21:28  2002.01.10  
Как перемещать картинку в TImage мышью