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

Вниз

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

 
hypno   (2007-03-04 20:28) [0]

Нужно отследить нажатия кнопок Up и Down, как ни пытался -  не получается, при OnKeyDown почему то не работает:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
case key of
VK_UP: gt:=gt+5;
VK_DOWN: gt:=gt-5;
end;
end;


,а OnKeyPress можно отследить только Char, то есть нажатие какой-то буквы, а как Стрелку Вверх отследить незнаю, подскажите пожалуйста, или поделитесь готовым примером, заранее спасибо! :)


 
DVM ©   (2007-03-04 20:36) [1]

KeyPreview = true; у формы.


 
Romm   (2007-03-04 20:46) [2]


> KeyPreview = true; у формы

чет всеравно не получается (


 
hypno   (2007-03-04 20:57) [3]

Поставил KeyPreview := true; все равно не работает, хотя это пример из описания к Delphi 7, поидеи должно работать ;)


 
Romm   (2007-03-04 21:10) [4]

знаю такой способ:

uses
keyboard;

...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if IsKeyDown(VK_LEFT) then Form1.Left := Form1.Left - 1;
if IsKeyDown(VK_RIGHT) then Form1.Left := Form1.Left + 1;
if IsKeyDown(VK_UP) then Form1.Top := Form1.Top - 1;
if IsKeyDown(VK_DOWN) then Form1.Top := Form1.Top + 1;
end;


Только у меня модуля keyboard нету. Если у тя есть - пользуйся


 
hypno   (2007-03-04 21:19) [5]

И у меня нету, откудаж ему взятся))


 
RASkov   (2007-03-05 02:35) [6]

> [5] hypno   (04.03.07 21:19)

begin
 if GetKeyState(VK_LEFT)<0 then Left:=Left-1;
 if GetKeyState(VK_RIGHT)<0 then Left:=Left+1;
 if GetKeyState(VK_UP)<0 then Top:=Top-1;
 if GetKeyState(VK_DOWN)<0 then Top:=Top+1;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.032 c
15-1172752338
@!!ex
2007-03-01 15:32
2007.03.25
Просьба сделать в поиске настраиваемый фильтр.


2-1173086816
sipsik
2007-03-05 12:26
2007.03.25
почему на второй форме параметический запрос не работает


2-1172743088
марина
2007-03-01 12:58
2007.03.25
вывод файла


15-1172840179
shikitomedo2
2007-03-02 15:56
2007.03.25
Баян может быть, но мне понравилось :)


2-1172647396
Нуб
2007-02-28 10:23
2007.03.25
Button