Teile vom Programm ausblenden

[mirage228]

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.