перетаскивание динамически созданных объектов

[kaizer131]

Подскажите как реализовать перетаскивание мышью динамически созданных объектов?
есть процедура, нормально осуществляющая перетаскивание статично созданного объекта

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);

отправить сообщение о переносе именно тому объекту на котором была нажата левая кнопка мыши?

[niki2012]

1. Процедуру надо задать в виде procedure xxx(Sender as Тип_объекта), тогда можно будет вызывать ее от объекта.
2. Чтобы использовать в процедуре объект, вызвавший ее, используйте (sender as тип_объекта).left и т.п.

[phomm]

вообще надо писать так, как написано в справке по 'TMouseEvent' и там будет написано полное объявление, вот такое

TMouseEvent = procedure (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;

[kaizer131]

Если писать так

procedure drag_Terminal(Sender as TObject);

ругается на as

[kaizer131]

Сообщение от phomm

вообще надо писать так, как написано в справке по 'TMouseEvent' и там будет написано полное объявление, вот такое

TMouseEvent = procedure (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;

Не совсем понял куда это писать и почему процедура безымянная , такое в Delphi допустимо ?

[phomm]

фейспалм...

procedure drag_Terminal(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;

это Вам для объявления процедуры.
а то , что в справке, это конечно же объявление процедурного типа

[kaizer131]

Что то я в тупике ....
Нашёл свой старый код. Вот последовательность инициализации и присвоения

procedure myonClick3 (Sender: TObject);

procedure Tround1.myonClick3(Sender: TObject);
begin
……….
end;

// объекты а генерились в run-time
a.OnClick:=myOnclick3;

И всё там работало ...
Но насколько помню он написан был в 2007 делфе а сейчас работаю в 2009.
И такой подход не сработал...

[kaizer131]

Сообщение от phomm

фейспалм...

procedure drag_Terminal(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;

это Вам для объявления процедуры.
а то , что в справке, это конечно же объявление процедурного типа

Ругается на of object

[kaizer131]

С процедурой вроде разобрался
Теперь вопрос можно ли получить объект по имени и назначить конкретно ему обработчик?
Поясню объекты gr_Term создаются динамически при двойном нажатии на панель,
соответственно каждому из них назначаю имя и tag.

gr_Term.Tag:=term_Index;
gr_Term.Name:='Ter'+InttoStr(term_Index);

term_Index тип integer увеличивающаяся на единицу, с каждым созданным объектом.
как мне теперь назначать на них обработчики при создании?
Понятно что будет выглядеть как то так

gr_Term.OnMouseDown:=drag_Terminal ;

но как сделать чтобы OnMouseDown навешивалась именно на созданную gr_Term.
что то типа

gr_Term['индекс tag'].OnMouseDown:=drag_Terminal ;

или

gr_Term.getName('Ter1').OnMouseDown:=drag_Terminal ;

[kaizer131]

Может быть создавать массив gr_Term?