На форме есть компонент TImage. Он гораздо больше смой формы. При загрузки картинки в TImage появляются полосы прокрутки у формы. Как можно сделать, чтобы при прокрутке колеса скроллинга форма прокручивала бы свое содержимое, т.е. картинка сдвигалась вверх и вниз?

Лучше использовать компонент для прокрутки изображений. Вот пример.

Это сообщение отредактировал(а) Rrader - 24.5.2005, 12:24

Цитата

Лучше использовать компонент для прокрутки изображений

Это не подходит!

Цитата(MacTep @ 24.5.2005, 12:02)

Как можно сделать, чтобы при прокрутке колеса скроллинга форма прокручивала бы свое содержимое, т.е. картинка сдвигалась вверх и вниз?

Попробуй так:

Код

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;   MousePos: TPoint; var Handled: Boolean); begin if Image1.Top + Image1.Height > Form1.Height - 30 //30 подкорректируй под себя then Image1.Top:= Image1.Top - 10 end; procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;   MousePos: TPoint; var Handled: Boolean); begin if Image1.Top < 0 then Image1.Top:= Image1.Top + 10 end;

Пример прокрутки по вертикали:

Код

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;   MousePos: TPoint; Var Handled: Boolean); Begin   With VertScrollbar do      Position := Position + 10; End; ... Procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;   MousePos: TPoint; Var Handled: Boolean); Begin   With VertScrollbar do      Position := Position - 10; End;

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 20:47

Я бы в данном случае использовал бы ImageControl v2

Цитата(MacTep @ 24.5.2005, 12:02)

Как можно сделать, чтобы при прокрутке колеса скроллинга форма прокручивала бы свое содержимое

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Mask, ExtCtrls; type   TForm1 = class(TForm)     MaskEdit1: TMaskEdit;     Timer1: TTimer;     procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;       MousePos: TPoint; var Handled: Boolean);     procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;       MousePos: TPoint; var Handled: Boolean);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;   MousePos: TPoint; var Handled: Boolean); begin   Handled := True;   if (ssCtrl in Shift) then     Form1.HorzScrollBar.Position := Form1.HorzScrollBar.Position + 1   else     Form1.VertScrollBar.Position := Form1.VertScrollBar.Position + 1; end; procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;   MousePos: TPoint; var Handled: Boolean); begin   Handled := True;   if (ssCtrl in Shift) then     Form1.HorzScrollBar.Position := Form1.HorzScrollBar.Position - 1   else     Form1.VertScrollBar.Position := Form1.VertScrollBar.Position - 1; end; end.

Может немного и оффтоп, но скажу вот что:

MacTep, я вот тоже когда-то делал подобным образом скроллинг TImage с помощью скролбокса, формы, фрейма..., то есть не использовал других компонентов. И это оказалось грубо, неэффективно и неуниверсально и перегружало программу лишним кодом, который можно очень просто вынести за пределы кода модуля формы. Так что я все-таки пришел к выводу, что использовать компоненты гораздо удобнее. Зря ты отказываешся. Если не хочешь использовать мой - попробуй сделать свой. Это будет намного универсальнее.

Мне помог код от Rrader и Yanis. Думаю, не стоит сочинять велосипед! Ведь всего одна строчка кода-то!!!