Как нарисовать индикатор выравнивания элемента управления, например Delphi XE2?
У меня есть программа Delphi 6, которая позволяет пользователю перетаскивать элементы управления по странице. Я делаю это с помощью следующего кода в событии MouseDown.
ReleaseCapture;
TWinControl(Sender).perform(WM_SYSCOMMAND,$F012,0);
Как нарисовать набор линий, выровненных по левой стороне и по верху перетаскиваемого объекта, чтобы пользователь мог выровнять элемент управления с другими элементами управления (аналогично дизайну XE2)?