Перемещение фигуры

@IvanSvarog · Регистрация: 15.01.2010

Author24 — интернет-сервис помощи студентам

Мне попалось такое задание:
разместите на форме фигуру(Shape) с помощью combobox-сов задайте выбор формы, цвета линии, формы линии, цвета заливки и формы заливки, а также перемещение фигуры по форме при помощи мышки.
все сделал а перемещение не получается, подскажите как его сделать?

@Сержа · 06.02.2010, 16:42

У меня нет объектов которые ты использовала!!! Но вот что получилось!!!

Delphi

if f then begin         /// перемещение
shape1.Left:=x+shape1.Left-round(shape1.Width/2);
shape1.Top:=y+shape1.Top-round(shape1.Height/2)
end;

Ниже программный код

__________________
Нажмите "спасибо", если я вам помог

	06.02.2010, 16:42

Перемещение фигуры

Решение