Скролл мышью

[CrazyManR]

Доброго времени суток! Помогите новичку. Есть форма размером во весь экран, на неё помещена картинка, не помещающаяся в форму. Требуется перемещаться по картинке нажав левую кнопку мыши и двигая её в нужном направлении. Зарание спасибо!

[Кольша]

Слышал я что то про scroll box но сам не использовал..

[CrazyManR]

это понятно, но как заставить зацепив картинку кликом мыши передвинуть её в скрол боксе??? При этом зацепить кликом именно картинку.

[Stilet]

Картинка как отрисовывается? На канве или используется какой-то компонент?

[Кольша]

Скорей всего TImage видел где на delphisources.ru несколько примеров как это можно осуществить..

[VIK_aka_TOR]

наверное играться с этими тремя событиями:

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

запоминаешь что было при MouseDown и начинаешь скролить (тягать) картинку через OnMouseMove, и прекращаешь скролить(тягать) при OnMouseUp... теоретически....

[CrazyManR]

Спасибо разобрался! Но есть ещё один вопросик! У меня 2 монитора один 4:3, другой 16:9. Как заставить элементы формы при разворачивании формы во весь экрнан на разных мониторах отображаться пропорционально рамеру монитора и его разрешению???

[Кольша]

А что они не пропорциональны?Находите разрешение экрана..считаете и уменьшаете свойства height and width

[CrazyManR]

Сообщение от Кольша

А что они не пропорциональны?Находите разрешение экрана..считаете и уменьшаете свойства height and width

Ну так компоненты привязаны к левому верхнему углу формы, когда разварачиваю форму на весь экран на мониторе 16:9 получается справа на форме пустота, а нужно, чтобы все компоненты "центровались"

[CrazyManR]

Спасибо тоже разобрался))))
вот кусочек кода

procedure TForm1.FormResize(Sender: TObject);
begin
Panel1.Left:= (Form1.Width - Panel1.Width) div 2;
Label3.Left:=(Form1.Width - Label3.Width) div 2;
end;