Перемещение объекта

← →
Magistr (2004-08-10 20:23) [0]

Есть объект,к примеру image,мне нужно чтобы он смещался при нажатии на клаве стрелок

← →
Алхимик © (2004-08-10 20:38) [1]

В обработчике формы OnKeyPress(OnKeyDown, OnKeyUp)
меняем свойства объекта Left, Top

← →
Magistr (2004-08-10 20:51) [2]

а чтобы именно стрелками?если можно небольшой примерчик плз!!!

← →
3APA3A © (2004-08-10 21:04) [3]

Можно =)
Ляпаешь на форму Image, загружаешь в него чего-нибудь, и в обработчике формы OnKeyDown пишешь
case Key of 37: Self.Image1.Left := Self.Image1.Left - 1; 38: Self.Image1.Top := Self.Image1.Top - 1; 39: Self.Image1.Left := Self.Image1.Left + 1; 40: Self.Image1.Top := Self.Image1.Top + 1; end;

И все...

← →
begin...end © (2004-08-10 21:06) [4]

> [1] Алхимик © (10.08.04 20:38)
> В обработчике формы OnKeyPress(OnKeyDown, OnKeyUp)

OnKeyDown, OnKeyUp. ONLY.

← →
Magistr (2004-08-10 22:02) [5]

А с другими клавишами?Может есть таблица какя,какое значение ,какой клавиши?

← →
begin...end © (2004-08-10 22:05) [6]

> [5] Magistr (10.08.04 22:02)

Virtual key codes + F1

← →
Magistr (2004-08-10 22:49) [7]

блин проблема возникла,всё было ок,но когда я поместил на форму кнопку или Edit Image перестал перемещяться,может это изиза фокуса?

← →
Алхимик © (2004-08-10 22:52) [8]

TForm.KeyPreview := true;
[4] begin...end © (10.08.04 21:06)
угу

← →
Magistr (2004-08-10 23:07) [9]

теперь он перемещаеться только по горизонтали....

← →
Алхимик © (2004-08-10 23:11) [10]

2 варианта:
1) Ошибка в 17 строке.
2) Не работают кнопки Лево и Право. :)

Код покажи.

В смысле Верх Низ. :)

← →
Magistr (2004-08-10 23:24) [12]

procedure Tfrmgame.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
37: Self.ImgHero.Left := Self.ImgHero.Left - 35;
38: Self.ImgHero.Top := Self.ImgHero.Top - 35;
39: Self.ImgHero.Left := Self.ImgHero.Left + 35;
40: Self.ImgHero.Top := Self.ImgHero.Top + 35;
end;

end;
вот код на форму...а именно на событие keydown,он теперь в право и лево перемещаеться а вверх вниз нет,с кнопками всё ок.а какая 17ая строка?

← →
Magistr (2004-08-10 23:27) [13]

image перестал двигаться после того как я на форму запихнул ещё кнопку и Editы...

Попробуй Button.TabStop. Причина ясна?

А зачем это надо?

Перемещение объекта Найти похожие ветки