Delphi: Как реализовать перетаскивание картинки мышью

[Chaser]

Как реализовать перетаскивание картинки мышью (передвигать картинку), если она не умещается на Image (аналог руки в Photoshop)?

[/7y3uK]

ну, допустим, если можно ее всю сразу в памяти держать, не отсекая, то тогда можно TImage бросить на TScrollBox (хоспади, вроде так называется), схайдить у него скроллбары, на TImage привертеть соответствующий курсор, и перекрыть мышиные события... не помню, OnDrag там есть и можно ли его сразу перекрыть.. или придется по старинке через OnMouseMove... - просто высчитываешь дельту на которую нужно двигать в зависимости от натурального размера картинки и клиентской части бокса и по курсору меняешь позишены у скроллбаров... По-моему как-то так Давненько не брался я за дельфу