/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 vote169 views2 answers
Css social code bootstrap 4
Delphi
34 votes258 views2 answers
Shuffle list and print
Delphi
6 votes172 views8 answers
React -slick
Delphi
0 vote182 views1 answer
Password in delphi edit
Delphi
0 vote240 views1 answer
Delphi calculator
Delphi
0 vote123 views1 answer
Instagram bot python
Delphi
6 votes259 views3 answers
How to install pip in python 3.9 windows 10
Delphi
0 vote174 views1 answer
Delphi Tidhttp error could
Delphi
0 vote178 views1 answer
How to deacrease Time in delphi
Delphi
4 votes264 views2 answers
Copy delphi
Delphi