Also...
die Form Height bestimmst du so:
Delphi-Quellcode:
procedure TForm1.anpassen;
var
p1,p2,p3,I: integer;
platz: integer; // eventuell unten am form platzlassen
begin
p1 := 0; p2 := 0; p3 := 0;
if Panel1.Visible then P1 := Panel1.Height;
if Panel2.Visible then P2 := Panel2.Height;
if Panel3.Visible then P3 := Panel3.Height;
i := p1 + p2 + p3;
platz := 32;
Form.ClientHeight := i + platz;
Panel1.Top := 8;
Panel2.Top := p1 + 8 + 8;
Panel3.Top := p1 + p2 + 24;
end;
die prozedur dann nur noch in die form-dekl. eintragen und dann in dem menü aufrufen.
mfG
mirage228
p.s.: der code ist jetzt ausm gedächtnis, ich weiss nich obber funkt.