Dynamische Scrollbox

[Andreas L.]

Zitat von delphicoder123:

Was mache ich falsch?

Du musst noch die AutoSize-Property des Images setzen:

Delphi-Quellcode:

...

procedure TForm1.FormActivate(Sender: TObject);
begin
  ScrollBox1.Align:=alClient;
  ScrollBox1.HorzScrollBar.Visible:=true;
  image1.Align:=alnone;
  image1.Left:=0;
  image1.Top:=0;
  image1.Stretch:=false;
  image1.center:=false;
  image1.Picture.Bitmap.Width:=900;
  image1.Picture.Bitmap.Height:=900;
  image1.Canvas.Rectangle(600,600,800,800);

  // --> AutoSize setzen:
  image1.AutoSize := True;
end;

...