Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];
Вниз
Перемещение объекта Найти похожие ветки
← →
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) Не работают кнопки Лево и Право. :)
Код покажи.
← →
Алхимик © (2004-08-10 23:12) [11]В смысле Верх Низ. :)
← →
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ы...
← →
ferr © (2004-08-11 00:35) [14]Попробуй Button.TabStop. Причина ясна?
← →
ferr © (2004-08-11 00:37) [15]А зачем это надо?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.033 c
