Можно ли программно сделать DragDrop объекта

← →
Define (2005-06-14 14:52) [0]

ToolBar например? Я пытаюсь сделать ToolBar1.DragDrop(fmain,300,300); в ответ ничего. Сейчас ToolBar "приклеен" к CoolBar. Заранее благодарю.

← →
Digitman © (2005-06-14 15:08) [1]

> в ответ ничего

а что должно было произойти ?

← →
Define (2005-06-14 15:23) [2]

Т.е. мне хотелось бы без участия захвата мышью элемента перетащить этот элемент в опр. координаты. Т.е. может быть я и правильно написал DragDrop(fmain,300,300);, но в результате DragDrop (если руками делать) ToolBar становится плавающем окном. А у меня ничего с данным кодом. (не драгдопится т.е. :) )

← →
Digitman © (2005-06-14 15:29) [3]

BeginDrag() вызывал ?

← →
Define (2005-06-14 16:56) [4]

Digitman © (14.06.05 15:29)
Спасибо! А ещё вопрос, как сместить элемент туда, куда нужно?
ToolBar1.BeginDrag(True, 1); ToolBar1.DragDrop(fmain,10,10); ToolBar1.EndDrag(True);

Т.е. вот сейчас задаю (fmain,10,10), а на самом деле эти координаты не отрабатываются.

← →
Digitman © (2005-06-14 17:02) [5]

> на самом деле эти координаты не отрабатываются

интересно, а какие "отрабатываются" ?

← →
Define (2005-06-14 17:24) [6]

Никакие :(

← →
Digitman © (2005-06-14 17:27) [7]

> Define (14.06.05 17:24) [6]
> Никакие

правильно.
и не будут.
ибо кто как не обработчик OnDragDrop() должен реагировать на факт "сброса" на него всякого хлама ?

← →
Define (2005-06-15 08:31) [8]

Точно :) Сейчас работает кроме одного, как передвинуть перетаскиваемый объект в нужную координату?
ToolBar1.BeginDrag(True, 1); ToolBar1.Dragging; ToolBar1.DragDrop(fmain,100,200); // что с этой строкой, что без нее .. :( ToolBar1.EndDrag(True);

← →
Define (2005-06-16 09:06) [9]

Мастера, подскажите плз, как ее передвинуть, "оторвать" и "положить" понятно как, а как можно сдвинуть на мою координату?

> как можно сдвинуть на мою координату

просто изменить значения свойств Left и Top того контрола, который требуется "сдвинуть"

← →
Define (2005-06-16 10:58) [11]

Digitman © (16.06.05 09:27), спасибо что не оставляешь мои вопросы без ответов :) Но действительно не срабатывает, так делал с самого начала.
ToolBar1.BeginDrag(True, 1); ToolBar1.Dragging; ToolBar1.Left:=5; ToolBar1.Top:=5; ToolBar1.EndDrag(True);

← →
Define (2005-06-16 11:01) [12]

Вернее, на 5 пикселов ToolBar1 сдвигается, а вот если делаю 200 влево, 200 от верха, то туда ToolBar1 не отправляется, а приклеивается к мыши, а мышь на кнопке, где собственно и этот обработчик запускаю.

> Define

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

Можно ли программно сделать DragDrop объекта Найти похожие ветки