/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

1 vote238 views1 answer
Case delphi
Delphi
-1 vote211 views1 answer
Delphi if statement
Delphi
1 vote222 views4 answers
"nickolasmin"
Delphi
0 vote183 views1 answer
Types of message box C#
Delphi
0 vote188 views1 answer
Inputbox delphi
Delphi
0 vote207 views1 answer
Delphi fullscreen
Delphi
2 votes252 views1 answer
Get last element of array delphi
Delphi
6 votes170 views8 answers
React -slick
Delphi
0 vote197 views2 answers
Css social code bootstrap 4
Delphi
15 votes234 views5 answers
Belle delphine
Delphi