Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.19;
Скачать: CL | DM;

Вниз

Как сделать цикл пока не нажата клавиша?   Найти похожие ветки 

 
maxim2 ©   (2002-08-07 06:31) [0]

Привет всем!
Вот собсно и всё.


 
VAleksey ©   (2002-08-07 07:31) [1]

GetAsyncKeyState
GetKeyboardState
посмотри описание на них в файле Win32.hlp.


 
Polevi ©   (2002-08-07 09:16) [2]

flag:=true;
while flag do
begin
Application.ProcessMessages;
...
end;

procedure Button1Click
begin
flag:=false;
end;


 
VAleksey ©   (2002-08-07 10:09) [3]


> Polevi © (07.08.02 09:16)

ввиду клавиша а не кнопка.


 
c0pYc@t   (2002-08-07 10:18) [4]

repeat
.....
until KeyPressed=<здесь код клавиши>;


 
PVOzerski ©   (2002-08-07 10:58) [5]

>repeat
>.....
>until KeyPressed=<здесь код клавиши>;

такое можно только в проге с "левым" Crt-совместимым модулем (такие можно найти) и, естественно, либо консольной, либо с "извращенным" GUI вроде WinCrt от BP7 (А ведь автор вопроса указал D6).

>GetAsyncKeyState
Вот это - действительно то, что надо. Только сработает безотносительно того, какая форма и даже данное ли приложение активно. А такая ситуация нужна не всегда, придётся вставлять проверку дополнительных условий.

Есть еще варианты, завязанные на обработку событий активного окна (но в том числе и на OnKeyPress). При этом либо в цикл вставляется Application.ProcessMessages (что замедляет счёт в цикле), либо цикл запускается в отдельном потоке. В ответ на событие обработчик меняет значение некоего флага, которое проверяем в нашем цикле и по его изменению делаем break.


 
Ученик ©   (2002-08-07 11:16) [6]

function KeyPressed : Boolean;
var
Msg : TMsg;
begin
while GetMessage(Msg, 0, 0, 0) and
(Msg.Message <> WM_QUIT) and (Msg.Message <> WM_KEYDOWN) do begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
Result := True
end;



Страницы: 1 вся ветка

Текущий архив: 2002.08.19;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
4-60910
MARcoDEN
2002-06-10 20:28
2002.08.19
Как узнать хэндл другой программы?


1-60582
sova
2002-08-08 07:51
2002.08.19
кнопки


1-60668
V.Turecky
2002-08-03 16:00
2002.08.19
TListView c графикой.


14-60857
RV
2002-07-24 10:20
2002.08.19
Посоветуйте чтиво


6-60779
Di_wind
2002-06-07 16:25
2002.08.19
Сохранение страницы на харде