Форум: "WinAPI";
Текущий архив: 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;
как сделать такую задержку?
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c