/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

34 votes217 views2 answers
Shuffle list and print
Delphi
0 vote164 views1 answer
Choose character from string in delphi
Delphi
1 vote211 views4 answers
"nickolasmin"
Delphi
1 vote232 views3 answers
Bootstrap cards with image on the right side
Delphi
0 vote185 views1 answer
Delphi Tidhttp error could
Delphi
8 votes220 views4 answers
Bootstrap display error message
Delphi
0 vote185 views1 answer
Get time in milliseconds delphi
Delphi
-1 vote196 views1 answer
Delphi if statement
Delphi
0 vote196 views1 answer
Set vfat label
Delphi
0 vote174 views1 answer
Bootstrap 4 form modal popup
Delphi