17 lines
284 B
ObjectPascal
17 lines
284 B
ObjectPascal
|
uses ABCObjects,GraphABC;
|
||
|
|
|
||
|
|
var star := new StarABC(320,240,50,20,5,Color.Green);
|
||
|
|
|
||
|
|
procedure KeyDown(key: integer);
|
||
|
|
begin
|
||
|
|
case key of
|
||
|
|
vk_left: star.Left -= 5;
|
||
|
|
vk_right: star.Left += 5;
|
||
|
|
vk_up: star.Top -= 5;
|
||
|
|
vk_down: star.Top += 5;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
OnKeyDown := KeyDown;
|
||
|
|
end.
|