Последние записи
- Как сделать картинку адаптивной, само растягивающейся к размеру монитора, чтобы размер баннера изменялся сам — подстраивался под дизайн сайта
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
6th
Май
Движение image по нажатию стрелок на клавиатуре
Posted by Chas under Delphi
как запрограммировать image что бы при нажатии стрелочки вверх он прыгнул а потом опустился на тоже место
Аватар
Это плохо. А вообще какой-нибудь код умеешь писать? Вот для мышки
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Left:=Image1.Left-2;
Image1.Top:=Image1.Top-2;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Left:=Image1.Left+2;
Image1.Top:=Image1.Top+2;
end;
Аватар
Для стрелок() (KeyPreview формы не забудь в True)
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if not (Key in [VK_DOWN,VK_UP]) then Exit;
Image1.Left:=Image1.Left-2;
Image1.Top:=Image1.Top-2;
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if not (Key in [VK_DOWN,VK_UP]) then Exit;
Image1.Left:=Image1.Left+2;
Image1.Top:=Image1.Top+2;
end;
