[Карина45]

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

[@Rafa3L]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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]

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