/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 vote407 views1 answer
How to insert apostrophe in delphi string
Delphi
0 vote476 views1 answer
Delphi draw antialiased line
Delphi
0 vote379 views1 answer
How to use incyear in delphi
Delphi
0 vote388 views2 answers
Css social code bootstrap 4
Delphi
0 vote424 views1 answer
Set vfat label
Delphi
0 vote412 views1 answer
Delphi copiarcaracter string
Delphi
3 votes402 views1 answer
Flash messages using boot strap
Delphi
3 votes476 views3 answers
Add data to json object
Delphi
0 vote361 views1 answer
Bootstrap 4 form modal popup
Delphi
0 vote430 views1 answer
Delphi dynamic array count
Delphi