Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2009, 09:17   #1
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию Програмное нажатие на клавиши

Привет всем! Скажите пожалуиста как программно нажать на клавишу 'A' или 'D' просто я пробывал как vk_a но не получается..И так-же тока на русские буквы
mustang007 вне форума Ответить с цитированием
Старый 24.05.2009, 09:40   #2
Kotofff
Участник клуба
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Сообщений: 1,916
По умолчанию

Дай код как ты делаешь ...
Будет проще посмотреть в чем дело ...
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
Kotofff вне форума Ответить с цитированием
Старый 24.05.2009, 09:46   #3
apromix
PHP, Delphi
Форумчанин
 
Аватар для apromix
 
Регистрация: 07.05.2008
Сообщений: 388
По умолчанию

В событии FormKeyUp пишите:
Код:
case Key of
    VK_LEFT, ord('A'): код
    VK_RIGHT, ord('D'): код
    VK_UP, ord('W'): код
    VK_DOWN, ord('S'): код
end;
Мыши плакали, кололись, но продолжали жрать кактус...
мои проекты
apromix вне форума Ответить с цитированием
Старый 24.05.2009, 10:02   #4
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Я хоче сделать чтоб две картинки можно было двигать по полю. ! картинку стрелочками а 2 буквами, так вот с 2 проблема.
Код:
const
x = 10;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_left then Image1.Left := Image1.Left - x;
if key = VK_right then Image1.Left := Image1.Left + x;
if Image1.Left > 295 then Image1.Left := 296;
if Image1.Left < 0 then Image1.Left := 0;
end;
end.
Это чтоб двигать первую.
mustang007 вне форума Ответить с цитированием
Старый 24.05.2009, 10:19   #5
apromix
PHP, Delphi
Форумчанин
 
Аватар для apromix
 
Регистрация: 07.05.2008
Сообщений: 388
По умолчанию

Может вот так:

Код:
const
x = 10;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_left then Image1.Left := Image1.Left - x1;
if key = VK_right then Image1.Left := Image1.Left + x1;
if key = ord('A') then Image2.Left := Image1.Left - x2;
if key = ord('D') then Image2.Left := Image1.Left + x2;
if Image1.Left > 295 then Image1.Left := 296;
if Image1.Left < 0 then Image1.Left := 0;
if Image2.Left > 295 then Image2.Left := 296;
if Image2.Left < 0 then Image2.Left := 0;
end;
end.
Мыши плакали, кололись, но продолжали жрать кактус...
мои проекты
apromix вне форума Ответить с цитированием
Старый 24.05.2009, 10:25   #6
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

о спасибо! тока там небольшая помарочка у вас
Код:
- x1;
а надо
Код:
- x-1;
mustang007 вне форума Ответить с цитированием
Старый 24.05.2009, 10:40   #7
apromix
PHP, Delphi
Форумчанин
 
Аватар для apromix
 
Регистрация: 07.05.2008
Сообщений: 388
По умолчанию

Главное, что разобрались и все заработало
Мыши плакали, кололись, но продолжали жрать кактус...
мои проекты
apromix вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 20000 рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Програмное нажатие клавиш в memo Proger10 Общие вопросы Delphi 14 16.05.2009 10:03
Форма не реагирует на нажатие клавиши Vladya Помощь студентам 7 12.05.2009 16:11
Имитатор нажатие клавиши на клавиатуре SNUPY Общие вопросы Delphi 3 10.11.2008 21:39
Нажатие клавиши format Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 05.05.2008 14:25
Клавиатура, нажатие клавиши Yogik™ Помощь студентам 4 21.11.2007 00:05


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS