Перемещение Shape стрелками на клавиатуре - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Помогите пожалуйста. У меня код на процедуру передвижения Shape по экрану (в приложении) с помощью стрелок на клавиатуре
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState;)
begin
if Key = VK_RIGHT then
Shape1.Left := Shape1.left+2 // перемещаем вправо
if Key = VK_LEFT then
Shape1.left := Shape1.left-2; // перемещаем влево
if Key = VK_DOWN then
Shape1.Top := Shape1.Top+2; // перемещаем вверх
if Key = VK_UP then
Shape1.Top := Shape1.Top-2;  // перемещаем вниз
end;
Выдает ошибку Error: method identifier expected на строку
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState;)

Решение задачи: «Перемещение Shape стрелками на клавиатуре»

textual
Листинг программы
type
 
  { TForm1 }
 
TForm1 = class(TForm)
    Shape1: TShape;
    procedure FormKeyDown(Sender: TObject);

Объяснение кода листинга программы

  1. Объявление переменной Shape1 типа TShape
  2. Реализация обработчика события KeyDown для формы с именем FormKeyDown
  3. Вызов метода Shape1.Load в конструкторе формы после ее создания, чтобы загрузить изображение формы из файла

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы