Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi 2 Panel 1 Splitter - Panel ausbelden und einblenden (https://www.delphipraxis.net/137716-2-panel-1-splitter-panel-ausbelden-und-einblenden.html)

moelski 27. Jul 2009 10:18


2 Panel 1 Splitter - Panel ausbelden und einblenden
 
Moin !

Man nehme ein Formular mit 2 Panels und dazwischen ein Splitter. Panel 1 ist Align = clClient. Der Splitter steht auf Align = alBottom und Panel 2 steht ebenfalls auf Bottom.

Wenn ich nun über Panel2.Visible := False das untere Panel ausblende geht das subba. Aber ich kriege es mit Panel2.Visible := True nicht mehr zurück zur Anzeige.

Gibt es da einen einfachen Trick damit das klappt oder brauchts da ein spezielles Stück Code um das hinzubekommen?

DeddyH 27. Jul 2009 10:20

Re: 2 Panel 1 Splitter - Panel ausbelden und einblenden
 
Ungetestet: Panel1.Align auf alNone, Panel2.Visible auf true und anschließend Panel1.Align wieder auf alClient setzen.

moelski 27. Jul 2009 10:25

Re: 2 Panel 1 Splitter - Panel ausbelden und einblenden
 
Moin !

Geht durndsätzlich, aber dann passt die Zuordnung vom Splitter nicht mehr.
Der ist dann nämlich ganz untem im Formular und nutzt nix mehr.

Dann muss man den wohl auch noch erst umsetzen ...

moelski 27. Jul 2009 10:28

Re: 2 Panel 1 Splitter - Panel ausbelden und einblenden
 
Nehme alles zurück.

Mann muss nur Splitter und Panel auf Visible = False setzen.
Und beim einschalten dann erst das Panel wieder anschalten und dann den Splitter.
Dann gehts wunderbar.

Anyway Danke !

himitsu 27. Jul 2009 11:06

Re: 2 Panel 1 Splitter - Panel ausbelden und einblenden
 
eventuell halt einfach nur die Breite oder Höhe des Panels auf 0 und .Enabled auf False (damit die enthaltenen Controls nimmer reagieren) setzen :gruebel:


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:26 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz