Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.04.2012, 21:08   #1
glebast
Форумчанин
 
Аватар для glebast
 
Регистрация: 10.12.2011
Сообщений: 154
Восклицание Нажатие кнопок

Здарова.
В общем я делаю такую штуку: нажимаю на стрелочки и моя картинка движется, в зависимости на какую стрелку я нажал. Так вот, когда я нажимаю на стрелку то моя картинка сначала сделает одно движение, тормознет, а потом только начинает постоянно двигаться.

А мне надо чтоб я нажал на кнопку, и мое изображение сразу же начало двигаться без тормозов.

Вот код:
Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=vk_right) and (image1.Left<form1.ClientWidth-image1.Width-2) then
 begin
  image1.Left:=image1.Left+5;
  end;

  if (key=vk_left) and (image1.Left>0) then
 begin
  image1.Left:=image1.Left-5;
    end;

    if (key=vk_up) and (image1.Top>0) then
 begin
  image1.Top:=image1.Top-5;
     end;

     if (key=vk_down) and (image1.Top<form1.ClientHeight-image1.Height-2) then
 begin
   image1.Top:=image1.Top+5;
  end;
  if (key=vk_space) then
  begin
  timer1.Interval:=2;
  timer2.Interval:=2;
  timer3.Interval:=2;
  end;
end;
Помогите пожалуйста!
glebast вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Случайное нажатие кнопок Mr_freeman Помощь студентам 2 18.01.2010 22:21
нажатие кнопок Nitrino Win Api 2 07.01.2010 22:43
Нажатие кнопок SeregaIRK Компоненты Delphi 9 18.09.2008 18:13
Отловить нажатие кнопок Sanek_ntsk Паскаль, Turbo Pascal, PascalABC.NET 2 12.03.2008 17:38
Нажатие кнопок мыши zzzzz Win Api 7 02.12.2007 12:33