how to make a shape move in delphi

Determined Dotterel answered on November 7, 2020 Popularity 2/10 Helpfulness 1/10

answer how to make a shape move in delphi

how to make a shape move in delphi

Comment

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;

Popularity 2/10 Helpfulness 1/10 Language delphi

Source: stackoverflow.com

Tags: delphi move

Link to this answer
Share Copy Link