Форум: "Начинающим";
Текущий архив: 2007.03.25;
Скачать: [xml.tar.bz2];
ВнизКак отследить нажатие клавиш Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.057 c