Setze bei dem Frame das
Align auf
alNone. Dann fügst du folgenden Code im
OnResize Event der ScrollBox ein:
Delphi-Quellcode:
var
H: Integer;
W: Integer;
begin
W := Max(MyFrame.Constraints.MinWidth, MyScrollBox.ClientWidth);
H := Max(MyFrame.Constraints.MinHeight, MyScrollBox.ClientHeight);
MyFrame.SetBounds(0, 0, W, H);
end;
Klingt logisch
. So ähnlich mache ich das schon in einer anderen Applikation. Da hatte ich jetzt nicht mehr dran gedacht.
Aber: Ich darf im Frame nicht die Constraints verwenden, da diese mir ja wieder die ScrollBox in ihrer Mindestgröße limitieren...
Update: Ne, geht trotzdem
Vielen Dank Uwe!
Man sollte nie so viel zu tun haben, dass man zum Nachdenken keine Zeit mehr hat. (G.C. Lichtenberg)