Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Клавиатура [D7, WinXP]

Юра © (2007-08-03 12:37:00)
Есть код такой код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 65 then begin
...
end;
if key = 32 then begin
...
end;
end;
Если я зажимаю клавишу 65, то начинает выполнятся действие, но если я нажму 32, то действие выполнявшееся прекратится, хотя я не отпускал 65. Как сделать так чтобы действие продолжалось, если я не отпускаю клавишу, а нажимаю другую? (если можно, то покажите код)

Anatoly Podgoretsky (2007-08-03 14:59:00) [1]
Можно, но этот ответ правильный и к это программированию не имеет никакого отношения. Это чисто особенность работы клавиатуры, даже не драйвера.

Anatoly Podgoretsky (2007-08-03 14:59:00) [2]

> "Это же не наш метод !" (с)

Надо Федя, надо (с)

Юра (2007-08-03 14:39:00) [3]

> Anatoly Podgoretsky ©

Так можно на любую тему отвечать, в каком случаем тогда ты отвечаешь?

Сергей М. (2007-08-03 14:25:00) [4]

> Изучаем устройство клавиатуры

"Это же не наш метод !" (с)

Anatoly Podgoretsky (2007-08-03 14:18:00) [5]
Изучаем устройство клавиатуры

Юра (2007-08-03 12:56:00) [6]
Не могу понять.Если я зажимаю клавишу, то возникают события, пока я ее не отпущу. Если я при зажатой клавиши зажимаю другую, то события от ранее нажатой клавиши прекращаются( хотя я ее не отпускал, так ли это?) и возникает событие от новой нажатой клавиши, которые прекращаюся при отпусканиии ее.

Сергей М. (2007-08-03 12:48:00) [7]

> Разве это имеет значение?

А как же !
Конечно имеет)

> Например: перемещение image'а.

Ну хорошо, пусть будет так.

Смотрим как это с твоих слов выглядит в коде:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 65 then begin
//здесь начинается "действие"
.. перемещение image'а ..
//здесь это "действие" уже закончилось
end;
if key = 32 then begin
...
end;
end;

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

Юра (2007-08-03 12:44:00) [8]
Dib@zol © спасибо.

Dib@zol (2007-08-03 12:42:00) [9]
> procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> if key = 65 then key65Dn:=false;
> end;

FormKey UP !!!

Юра (2007-08-03 12:42:00) [10]
Разве это имеет значение? Например: перемещение image'а.

Dib@zol (2007-08-03 12:41:00) [11]
> procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> if key = 65 then begin
> ...
> end;
> if key = 32 then begin
> ...
> end;
> end;

var key65Dn:boolean=false;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = 65 then key65Dn:=false;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = 65 then begin
key65Dn:=true;
...
end;
if (key = 32)and(not key65Dn) then begin
...
end;
end;

Сергей М. (2007-08-03 12:39:00) [12]

> начинает выполнятся действие

Какое такое "действие" ?)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »