Image beim Scrollen zeigen ?

[taktaky]

Du meinst statt scrollBox, einen Scrollbar nehmen. OK
Ich würde testen

So habe ich gemacht und funktioniert gut aber nicht perfekt, da scrollbar scrollt mehr als Bild-Breite etwa 10% weiter !

Delphi-Quellcode:

procedure TForm2.ScrollBar1Change(Sender: TObject);
begin
Image1.width:=Image1.Picture.width;
Scrollbar1.Max:=trunc(Image1.Picture.Width / 2);
Image1.Left:=-Scrollbar1.Position;
end;

procedure TForm2.ScrollBar2Change(Sender: TObject);
begin
Image1.Height:=Image1.Picture.Height;
Scrollbar2.Max:=trunc(Image1.Picture.Height / 2);
Image1.Top:=-Scrollbar2.Position;
end;