Перемещение Shape стрелками на клавиатуре - Free Pascal
Формулировка задачи:
Здравствуйте!
Помогите пожалуйста.
У меня код на процедуру передвижения Shape по экрану (в приложении) с помощью стрелок на клавиатуре
Выдает ошибку Error: method identifier expected на строку
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;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState;)
Решение задачи: «Перемещение Shape стрелками на клавиатуре»
textual
Листинг программы
type { TForm1 } TForm1 = class(TForm) Shape1: TShape; procedure FormKeyDown(Sender: TObject);
Объяснение кода листинга программы
- Объявление переменной Shape1 типа TShape
- Реализация обработчика события KeyDown для формы с именем FormKeyDown
- Вызов метода Shape1.Load в конструкторе формы после ее создания, чтобы загрузить изображение формы из файла
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д