Teile vom Programm ausblenden

[F.W.]

Zitat von mirage228:

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;

Der Tip ist super, gut durchdacht, muss schon sagen!!
Aber jetzt hab' ich noch ein Problem, ich habe die Menüitems mit Autocheck=True bestückt. Wie kann ich jetzt klar machen, dass wenn der Haken davor ist, soll das Panel sichtbar sein, und anders halt dann unsichtbar?

Mein alter Quelltext lautet:

Delphi-Quellcode:

if menuitem1.Checked = True then Panel1.Visible := True;
if menuitem1.Checked = False then Panel1.Visible := False;

Unsichtbar wird das Panel, alledings wird es beim anhaken nicht wieder sichtbar.

Was soll ich da jetzt machen?