Scrollbox bei Laufzeit erzeugen

[Hartkern]

Hallo,

ich versuche gerade eine Scrollbox samt einem TImage als Inhalt während der Laufzeit zu erzeugen, jedoch fehlen die Scrollbars!

Code: Alles auswählen

constructor TMap.create(aOwner: TComponent);
begin
  SScrBox :=TScrollbox.Create(aOwner);
  SScrBox.Parent :=(aOwner as TWinControl);
  SScrBox.AutoSize:=true;
  SScrBox.AutoScroll:=true;
  FKarte :=TImage.Create(aOwner); //Ob aowner oder SScrBox macht keinen Unterschied
  FKarte.Parent :=SScrBox;
  FKarte.Picture.LoadfromFile('gittertest.bmp');
  FKarte.AutoSize:=true;
  FKarte.Visible := True;
  FKarte.enabled := True;
  FKarte.show;
 
end;                      

[wp_xyz]

Wenn du Scrollbox.AutoSize auf true setzst, stellt sich die Größe der Scrollbox so ein, dass der komplette Inhalt, also das Bild, sichtbar ist. Daher sind in diesem Fall keine Scrollbars erforderlich und werden ausgeblendet. Lass mal Scrollbox.AutoSize auf false.

[Hartkern]

Wenn ich die Autosize := False setz, ist die ScrollBox wesentlich kleiner als ihr Owner,das geladenen Image wird ebenso nicht komplett ausgefüllt angezeigt, in meinem Fall ein TPanel auf Form1. Ebenfalls tauchen auch keine Scrollbars auf.

Achja das Bild was geladen wird, ist auf jedenfall so groß das eine Scrollbox sinnvoll ist.

[theo]

Code: Alles auswählen

begin
  SScrBox :=TScrollbox.Create(...);
  SScrBox.Parent :=(...);
  SScrBox.Align:=alClient; //<--
  SScrBox.AutoScroll:=true;
  FKarte :=TImage.Create(...); 
  FKarte.Parent :=SScrBox;
  FKarte.Picture.LoadfromFile('...');
  FKarte.AutoSize:=true;
  FKarte.Visible := True;
  FKarte.enabled := True;
  FKarte.show;
end;