Последние записи
- Событие по изменению Edit.Text
- Как сделать картинку адаптивной, само растягивающейся к размеру монитора, чтобы размер баннера изменялся сам — подстраивался под дизайн сайта
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
8th
Янв
Управление объектом image стрелками клавиатуры
Posted by Chas under Delphi
как сделать так что когда я нажимаю клавишу up мое изображение image1 двигалось вперед image1.top:=image1.top-3; ну и соответственно для клавиш вправо влево и назад.
Max1548
procedure <Событие onKeyPress>
var
buttons: TKeyBoardstate;
begin
GetKeyboardState(buttons);
if buttons[VK_UP] and 128 <> 0 then
Image1.Top := Image1.Top - 1;
if buttons[VK_DOWN] and 128 <> 0 then
Image1.Top := Image1.Top + 1;
if buttons[VK_LEFT] and 128 <> 0 then
Image1.Top := Image1.Left - 1;
if buttons[VK_RIGHT] and 128 <> 0 then
Image1.Top := Image1.Top + 1;
end;
