Подскажите как реализовать перетаскивание мышью динамически созданных объектов?
есть процедура, нормально осуществляющая перетаскивание статично созданного объекта
Код:
procedure Tfrm_Main.drag_Terminal;
const
SC_DragMove = $F012;
begin
begin
ReleaseCapture;
Panel1.Perform(WM_SysCommand, SC_DragMove, 0);
end;
end;
но она отказывается навешиваться на динамические объекты
Код:
gr_Term.OnMouseDown:=drag_Terminal(self);
Вопрос 1
Почему, в этой строке возникает ошибка
[DCC Error] main.pas(97): E2010 Incompatible types: 'TMouseEvent' and 'procedure, untyped pointer or untyped parameter'
Вопрос 2
Как в строке
Код:
Panel1.Perform(WM_SysCommand, SC_DragMove, 0);
отправить сообщение о переносе именно тому объекту на котором была нажата левая кнопка мыши?