/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

3 votes291 views1 answer
Flash messages using boot strap
Delphi
0 vote189 views1 answer
Mongoose schema type double
Delphi
0 vote195 views1 answer
Types of message box C#
Delphi
0 vote266 views1 answer
Delphi calculator
Delphi
0 vote272 views1 answer
How to end a program in delphi
Delphi
0 vote383 views1 answer
How write pi in delphi
Delphi
0 vote208 views1 answer
Shuffle array delphi
Delphi
0 vote221 views1 answer
Hello world in delphi
Delphi
0 vote201 views1 answer
How to deacrease Time in delphi
Delphi
1 vote385 views3 answers
Bootstrap cards with image on the right side
Delphi