Drag and Drop, TImage и ScrollBox

[Evil-Racer]

Здравствуйте уважаемые. Сразу оговорюсь, много чего нагуглил, но мой попрос это не решило.

Вопрос такой:

На форме имеется следующее
ScrollBox1 внутри которого есть ScrollBox1a и ScrollBox1b. На ScrollBox1а лежит картинка Image1. Задача, посредством драг'н'дроп сделать возможность перетаскивать имэйдж с ScrollBox1а в ScrollBox1b и обратно, но при этом, изображение не должно перемещаться на просто ScrollBox1.

Алсо, есть ScrollBox2, который лежит сам по себе на форме. Так вот, этот имейдж должен еще уметь перемещаться на него. А так же важно, чтоб имейдж сохранил возможность перемещаться в пределах бокса где он лежит.

Теперь тупо, по-русски, хочу рисунок таскать с места на место в пределах бокса (это реализовал), иметь возможность перекинуть из бокса А в бокс Б и там же иметь возможность таскать его по боксу. И перекидывать вобще в левый бокс и там же елозить его.

Как мне это сделать?!

[doktor255]

Как мне это сделать?!

Меняй Parent.

[Evil-Racer]

Реализовал. Но тут возник вопрос другой, как присвоить ему парента напрямую из Sender (если правильно понял, то сендер это и есть объект, который принемает). То есть чтоб сендер стал парентом имэйджа?

Тупой вопрос, разобрался...

[Evil-Racer]

Люди) А вообще реально из TImage получить путь, из которого загрузили Picture?

И еще вопрос. На панели несколько изображений, нажав на любое правой кнопкой запускается вот это:
procedure TfEdit.PreviewAtPanelRightClick(Sen der: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
По сути это OnMouseDown

Мне надо из сендера получить координаты Top и Left, но почему то не могу получитью когда делаю watch то компилятор тупо перепрыгивает этот участок, а значение остается 0.
Получаю так:
t:=TImage(sender).Top;

Что делаю не правильно?

На скрине в ватче видно что TImage(sender).Top имеет значение (правильное), но оно не присваевается

[evg_m]

Что делаю не правильно?

Надо читать и анализировать все сообщения компилятора, а не только Error.

[Hint] anketaeditor.pas(107): Value assigned to 'f' never used

если оно не ненужно, то зачем тратить время и записывать.

[Evil-Racer]

Не понял о чем Ваш пост, и вобще мне ли. У меня компилятор не дает никаких варнингов, эрроров и хинтов. Все работает, кроме того, что TImage(sender).Top не отдает значения.

Кстати,
procedure TfEdit.PreviewAtPanelRightClick(Sen der: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
привязана к ДИНАМИЧЕСКИ созданному имейджу. Мож проблема в этом?

[FleXik]

может я и не в тему напишу (т.к почти вообще ничего не понял), но есть компонент Drag&Drop -> http://melander.dk/delphi/dragdrop/ я его сам почти во всех проэктах использую. Evil-Racer, пробуй, возможно он тебе поможет, к тому же в архиве с компонентом лежит демка...

[Evil-Racer]

FleXik спасибо, но не то.

Пытаюсь изловчиться так:
s:=(Sender as TComponent).Name;
t:=(FindComponent(s) as TImage).Top;

имя получаю, t не присваевается.. =(

[Аватар]

Дальше в коде процедуры к этому пресловутому t есть обращение? И покажите весь код процедуры

[Evil-Racer]

Да, было обращение. Но уже не важно.
Реализовал так:
При динамическом создании обзывал имейдж как 'xImg'+(i) и параллельно вел двухмерный массив, где a[i][1]=top а[i][2] соответственно Left
В процедурке
s:=(Sender as TComponent).Name;
Delete(s, 1,4);
i:=StrToInt(s);
и дальше работал с массивом..., так оказалось проще))