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

Вниз

Помогите!!!   Найти похожие ветки 

 
MystiX   (2002-01-17 16:59) [0]

Как узнать нажатие двух кнопок (на клавиатуре) одновременно, а не по очереди, по примеру старых шутеров что бы идти наискосок?
--------------------------------------------------------------
Заранее спасибо!!!


 
Snake ©   (2002-01-17 17:24) [1]

Можно, например, самое простое - это обработать событие OnKeyDown.

procedure TMainForm.MainFormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssShift in Shift)and(key=VK_UP) then ShowMessage("Вперед с шиытом")
end;


 
valery_f   (2002-01-17 19:10) [2]

Как ни пытайся одновременно - сначала прийдет "нажатие" от одной кнопки, потом от другой (шутка :)) Следи не только за нажатием, но и за отпусканием - тогда и увидишь нажато ли что-то одновременно (можно завести таблицу состояния нужных клавиш - нажато или нет).


 
@ndron ©   (2002-01-17 20:25) [3]

Поробуй так:


procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (getasynckeystate(vk_up)<>0) and (getasynckeystate(vk_left)<>0) then beep;
end;


Вместо beep поставь то, что надо.
Кстати, это будет срабатывать, даже если твой шутер неактивен!!!




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

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

Наверх




Память: 0.47 MB
Время: 0.006 c
3-8758
ancor
2002-01-05 14:14
2002.02.04
Можно ли программно создать алиас BD


1-8905
TAN
2002-01-17 11:30
2002.02.04
Помогите с :=strToFloat


1-8876
NLO
2002-01-15 06:35
2002.02.04
Загрузить иконку зарегистрированного расширения в ImageList


1-8806
f0rm
2002-01-15 12:32
2002.02.04
Перевод юниксовского времени в нормальное виндовое


1-8931
Matvey
2002-01-17 01:05
2002.02.04
Загруженность процессора (во время цикла)?