Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.47 MB
Время: 0.035 c
3-1090399587
Pyatax
2004-07-21 12:46
2004.08.29
Кодировка


3-1091693072
Виктор
2004-08-05 12:04
2004.08.29
ХП


4-1089994372
Dir
2004-07-16 20:12
2004.08.29
OpenDir


1-1092212250
Frozzen
2004-08-11 12:17
2004.08.29
TBitMap выдает Exception


3-1091710441
Alexander1966
2004-08-05 16:54
2004.08.29
ODBC Drivers создание базы данных





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский