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?