/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

6 votes345 views8 answers
React -slick
Delphi
4 votes299 views1 answer
How to find the length of a string delphi
Delphi
0 vote312 views2 answers
Eval javascipt
Delphi
0 vote340 views1 answer
Delphi fullscreen
Delphi
0 vote317 views2 answers
Remove escapes from json
Delphi
6 votes358 views3 answers
How to install pip in python 3.9 windows 10
Delphi
0 vote324 views1 answer
How to validate if the text in edit has numbers in and to show a message if it has in delphi
Delphi
0 vote312 views1 answer
Instagram bot python
Delphi
0 vote355 views1 answer
Set vfat label
Delphi
0 vote339 views1 answer
Free array Delphi 7
Delphi