/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

0 vote250 views1 answer
Ceil function delphi
Delphi
6 votes252 views3 answers
How to install pip in python 3.9 windows 10
Delphi
5 votes310 views3 answers
Copy function delphi
Delphi
2 votes303 views1 answer
Delphi how copy works
Delphi
2 votes266 views1 answer
Delphi basics generating random number
Delphi
11 votes270 views3 answers
Practicing python
Delphi
0 vote230 views1 answer
Delphi random letter
Delphi
0 vote240 views1 answer
Set vfat label
Delphi
0 vote242 views1 answer
Hello world in delphi
Delphi
1 vote269 views1 answer
Case delphi
Delphi