Moin,
Auf meiner Form befinden sich zwei TPanel.
Panel1.Align := alClient;
Panel2.Align := alBottom;
Bei Klick auf einen Button soll Panel1 verschwinden und Panel2.Align := alClient gesetzt werden.
Nach erneutem Klick auf den Button soll wieder Panel1.Align := alClient und Panel2.Align := alBottom sein.
Sobald ein zweites Mal auf den Button geklickt wird, vergrößert sich jedoch die Form um fast das Doppelte!
Wie kann ich das verhindern?
Mein Code:
Delphi-Quellcode:
if Panel1.Visible then
begin
Panel1.Hide;
Panel2.Align := alclient;
end
else
begin
Panel1.Show;
Panel2.Align := albottom;
end;
das hilft auch nichts:
Delphi-Quellcode:
if Panel1.Visible then
begin
Panel2.Tag := Panel2.Height;
Panel1.Tag := Panel1.Height;
Panel1.Hide;
Panel2.Align := alclient;
end
else
begin
Panel1.Show;
Panel1.Align := Alclient;
Panel2.Align := albottom;
Panel2.Height := Panel2.Tag;
Panel1.Height := Panel1.Tag;
end;
Gruß
API