Естесвенно, есть способ проще.
На форму кладется TScrollBox, а уже в него - TImage.
И вместо копирования имаджа просто указваешь позицию для полос прокрутки ScrollBox'а. При этом сами полосы прокрутки можно и спрятать, если я не ошибаюсь.
Пример нужен или сам дальще разберешься? Там, в принципе, не сложно, все делается на стандартных событиях Дельфей - нажатие кнопки, перемещение мыша, отпускание кнопки.
|