Сами виноваты, что неверно сформулировали исходное задание, теперь нечего обижаться на возмущение форумчан.
Перетаскивать мышью картинку нарисованную на канве нельзя т.к. она является составной частью канвы, поэтому вам придется каждый ваш квадратик оформлять как отдельный объект. За основу можно взять любой компонент у которого есть доступное свойство канва - TImage, TShape, TPaintBox и т.д. Далее вы можете создавать динамически при каждом нажатии кнопки новый квадратик или-же сделать их все сразу и последовательно отображать. Перетягивание квадратиков можно реализовать с помощью методов Drag, Drop или обработав события OnMouseMove OnMouseDown. Остается последний шаг это раскладывание их в новом месте. Про это вы написали очень скупо, а потому подождем ваших комментариев.
|