/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

19 votes436 views2 answers
Download jupyter for linux
Delphi
0 vote345 views1 answer
Inputbox delphi
Delphi
0 vote335 views2 answers
Remove escapes from json
Delphi
2 votes458 views1 answer
Delphi how copy works
Delphi
0 vote386 views1 answer
Hello world in delphi
Delphi
0 vote342 views1 answer
Delphi random letter
Delphi
0 vote373 views1 answer
React replace object in array
Delphi
2 votes417 views1 answer
Delphi basics generating random number
Delphi
15 votes445 views5 answers
Belle delphine
Delphi
0 vote368 views1 answer
How to check if something is only numbers in delphi
Delphi