/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 vote341 views1 answer
Ceil function delphi
Delphi
0 vote218 views1 answer
How to deacrease Time in delphi
Delphi
0 vote243 views1 answer
Hello world in delphi
Delphi
0 vote213 views1 answer
Remove unnecessary packages raspi pixel
Delphi
4 votes295 views1 answer
How to find the length of a string delphi
Delphi
0 vote220 views1 answer
Free array Delphi 7
Delphi
3 votes410 views3 answers
Add data to json object
Delphi
2 votes425 views1 answer
Delphi how copy works
Delphi
0 vote229 views1 answer
Password in delphi edit
Delphi
19 votes425 views2 answers
Download jupyter for linux
Delphi