| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перемещение объекта [D6, WinXP]
Magistr © (2004-08-10 20:23:00)Есть объект,к примеру image,мне нужно чтобы он смещался при нажатии на клаве стрелок
ferr (2004-08-11 00:37:00) [1]А зачем это надо?
ferr (2004-08-11 00:35:00) [2]Попробуй Button.TabStop. Причина ясна?
Magistr (2004-08-10 23:27:00) [3]image перестал двигаться после того как я на форму запихнул ещё кнопку и Editы...
Magistr (2004-08-10 23:24:00) [4]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ая строка?
Алхимик (2004-08-10 23:12:00) [5]В смысле Верх Низ. :)
Алхимик (2004-08-10 23:11:00) [6]2 варианта:
1) Ошибка в 17 строке.
2) Не работают кнопки Лево и Право. :)
Код покажи.
Magistr (2004-08-10 23:07:00) [7]теперь он перемещаеться только по горизонтали....
Алхимик (2004-08-10 22:52:00) [8]TForm.KeyPreview := true;
[4] begin...end © (10.08.04 21:06)
угу
Magistr (2004-08-10 22:49:00) [9]блин проблема возникла,всё было ок,но когда я поместил на форму кнопку или Edit Image перестал перемещяться,может это изиза фокуса?
begin...end (2004-08-10 22:05:00) [10]
> [5] Magistr (10.08.04 22:02)
Virtual key codes + F1
Magistr (2004-08-10 22:02:00) [11]А с другими клавишами?Может есть таблица какя,какое значение ,какой клавиши?
begin...end (2004-08-10 21:06:00) [12]
> [1] Алхимик © (10.08.04 20:38)
> В обработчике формы OnKeyPress(OnKeyDown, OnKeyUp)
OnKeyDown, OnKeyUp. ONLY.
3APA3A (2004-08-10 21:04:00) [13]Можно =)
Ляпаешь на форму 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;
И все...
Magistr (2004-08-10 20:51:00) [14]а чтобы именно стрелками?если можно небольшой примерчик плз!!!
Алхимик (2004-08-10 20:38:00) [15]В обработчике формы OnKeyPress(OnKeyDown, OnKeyUp)
меняем свойства объекта Left, Top
| |
