Последние записи
- Прозрачность тайлсета в 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 на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
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;
Похожие статьи
