/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

11 votes248 views3 answers
Practicing python
Delphi
3 votes246 views2 answers
Get current date delphi
Delphi
0 vote217 views1 answer
React replace object in array
Delphi
5 votes291 views3 answers
Copy function delphi
Delphi
4 votes186 views1 answer
How to find the length of a string delphi
Delphi
0 vote246 views1 answer
Delphi copiarcaracter string
Delphi
0 vote234 views1 answer
Delphi check if key pressed is enter
Delphi
0 vote241 views1 answer
How to insert apostrophe in delphi string
Delphi
0 vote212 views1 answer
Get time in milliseconds delphi
Delphi
4 votes267 views2 answers
Copy delphi
Delphi