/Delphi/How to make a shape move in delphi

How to make a shape move in delphi

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_UP:
      Shape1.Top := Shape1.Top - 10;
    VK_DOWN:
      Shape1.Top := Shape1.Top + 10;
    VK_LEFT:
      Shape1.Left := Shape1.Left - 10;
    VK_RIGHT:
      Shape1.Left := Shape1.Left + 10;
  end;
end;

Source: stackoverflow.com

Similar codes

11 votes279 views3 answers
Practicing python
Delphi
0 vote193 views1 answer
Breakpoint condition delphi
Delphi
0 vote124 views1 answer
How to end a program in delphi
Delphi
8 votes239 views4 answers
Bootstrap display error message
Delphi
0 vote156 views1 answer
Mongoose schema type double
Delphi
3 votes244 views3 answers
Add data to json object
Delphi
0 vote161 views1 answer
Inputbox delphi
Delphi
0 vote178 views1 answer
Delphi fullscreen
Delphi
0 vote172 views1 answer
How to validate if the text in edit has numbers in and to show a message if it has in delphi
Delphi
4 votes255 views2 answers
Copy delphi
Delphi