Перетаскивание компонентов.

← →
Shopot © (2004-04-20 22:51) [0]

Подскажите плиз! Как перетащить кнопку и TImage с панели на форму?

← →
ASvencim © (2004-04-20 22:58) [1]

Создай новую кнопку и перенеси код из обработчика кнопки с панели в обработчик новой.

← →
Gero © (2004-04-20 23:21) [2]

DragMode := dmAutomatic
OnDragOver, OnDragDrop + F1

← →
spogi (2004-04-21 01:09) [3]

Если один компонент (напр. Button1) лежит на другом компоненте (Напр. Panel1), то значить первый из них имеет такую свойству:
- Button1.Parent:=Panel1;

Нужно перетаскивать кнопку и отпускать вне области панеля, и с помошью Button1.Parent:=Form1; можно передать кнопку на область формы. А саму перетаскивание проверяй или так:
begin
ReleaseCapture;
Button1.Perform(WM_SYSCOMMAND,$F012,0);
end;

или так, ОнКлик для мыши проверяй если нажата на кнопке, то лефт и топ кнопки перемещается вместе с мышкой, и при отпускании проверяем на форме ли отпустили, если ДА, то ПАРЕНТ опять передаем на форму...

Перетаскивание компонентов. Найти похожие ветки