[Карина45]

Составить программу создания средствами ООП набора управляемых с клавиатуры графических объектов. Организовать управление движением объектов курсорными клавишами по вертикали, по горизонтали и по диагоналям. Ввести возможность менять цвет объектов и др.
Набор из 7 пикселей трех цветов, четверть круга, прямоугольника со скругленными углами. Предусмотреть возможность изменения радиуса круга, превращения прямоугольника в прямоугольник с обычными углами, вращения прямоугольника вдоль центра, перемещения его вправо-влево вдоль экрана.

[@Rafa3L]

Сообщение от Карина45

Организовать управление движением объектов курсорными клавишами по вертикали, по горизонтали и по диагоналям.

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case Key of
  38: Shape1.Top:= Shape1.Top -1;
  40: Shape1.Top:= Shape1.Top +1;
  37: Shape1.Left:=Shape1.Left-1;
  39: Shape1.Left:=Shape1.Left+1;
  35: begin Shape1.Top:= Shape1.Top +1; Shape1.Left:=Shape1.Left-1; end;
  33: begin Shape1.Top:= Shape1.Top -1; Shape1.Left:=Shape1.Left+1; end;
  36: begin Shape1.Left:=Shape1.Left-1; Shape1.Top:= Shape1.Top -1; end;
  34: begin Shape1.Left:=Shape1.Left+1; Shape1.Top:= Shape1.Top +1; end;
 end;
end;

[Aristarh Dark]

Эта задача в разных вариациях уже несколько лет ходит по разным форумам. Очень просто гуглится.