/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 vote175 views1 answer
Remove unnecessary packages raspi pixel
Delphi
-1 vote191 views1 answer
Delphi if statement
Delphi
3 votes275 views2 answers
Get current date delphi
Delphi
2 votes267 views1 answer
Delphi basics generating random number
Delphi
0 vote185 views1 answer
How to validate if the text in edit has numbers in and to show a message if it has in delphi
Delphi
6 votes264 views1 answer
Delphi array
Delphi
3 votes173 views1 answer
Flash messages using boot strap
Delphi
0 vote203 views1 answer
Hello world in delphi
Delphi
0 vote211 views1 answer
How to insert apostrophe in delphi string
Delphi
0 vote219 views1 answer
Ceil function delphi
Delphi