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

[Swarog]

Почитайте по проведение типов и в таком вот духе работайте

procedure tform1.drag_Terminal(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 (sender as tbutton {допустим}).left := X;
 (sender as tbutton {допустим}).top := Y;

end;

[Swarog]

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

Собственног говоря именно на этот компонент он и навешивается а что бы отличать кто послал событие и служит параметр Sender. Все просто и гениально.

[kaizer131]

procedure Tfrm_Main.drag_Terminal;
begin
(sender as TGroupBox {допустим}).left := X;
 (sender as TGroupBox {допустим}).top := Y;
end;

хм не работает, а параметры X и Y нужно передавать в процедуру или они автоматически будут получены от координат мыши?
Инициализация процедуры

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

[HyperZen]

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

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

Почитай статью: http://www.delphisources.ru/pages/fa...rtti_life.html
тут именно то, что тебе нужно