ok Super danke für den Tipp funktioniert!!! Nur musste es über eine IF Anweisung machen weil das Panel eine bestimmte mindestgröße brauch um alle Objekte drin anzeigen zu können.
Hier mal der Quelltext dafür:
Code:
procedure TForm4.FormResize(Sender: TObject);
begin
if Form4.Width > 1179 then
begin
Panel1.Width:=Form4.Width;
end
else
begin
Panel1.Width:=1179;
end;
if Form4.Height >818 then
begin
Panel1.Height:=Form4.Height;
end
else
begin
Panel1.Height:=818;
end;
Die Zahlen und FormX müsst ihr dann nur noch anpassen
danke nochmal klappt prima
