Zuklappbare Komponenten

[arisen89]

Hallo zusammen,

bei der Ausführung des Programmes möchte ich mehrere GroupBoxen mit jeweils mehrere CheckBoxes in sich anzeigen lassen. Hat jemand Ahnung wie man einen GroupBox zuklappen lässt und nur der Caption angezeigt hat ? (alternative, zuklappbare Komponenten?)

LG

[Bernhard Geyer]

erster :-) ElAdvancedPanel

[Gollum]

Welche Delphi-Version?

Wenn du XE und/oder höher hast, dann vielleicht die TCategoryPanelGroup?

[mkinzler]

Bzw. TExpander in FMX/FM².

[Bummi]

Delphi-Quellcode:

procedure TForm3.GroupBox1Click(Sender: TObject);
begin
  // Tag vorher auf Designheigt setzen
  if TGroupBox(Sender).Height = TGroupBox(Sender).Tag then
    TGroupBox(Sender).Height := 16
  else
    TGroupBox(Sender).Height := TGroupBox(Sender).Tag;

end;

[DeddyH]

Bei Bergsoft gibt es auch so etwas (TNxExpandPanel).

[blondervolker]

"TMS"Komponenten:thumb:

Aber kostet was...

Siehe Bild...:thumb:

[Steku]

...Oder mal bei den Jedis gucken,
da gibt es ein JVRollOut...

Gruß
Steku

[Bummi]

Ich habe in meiner Altkomponentenecke auch noch eines gefunden ... Verschiebbar(einstellbar) und "klappbar".
Testprojekt für dynamische Erstellung ohne Installation liegt bei.

[Sir Rufo]

Zitat:

Zitat von Bummi (Beitrag 1188478)

Delphi-Quellcode:

procedure TForm3.GroupBox1Click(Sender: TObject);
begin
  // Tag vorher auf Designheigt setzen
  if TGroupBox(Sender).Height = TGroupBox(Sender).Tag then
    TGroupBox(Sender).Height := 16
  else
    TGroupBox(Sender).Height := TGroupBox(Sender).Tag;

end;

sehr geil :thumb:

Wenn es mit Bordmitteln etwas mehr sein darf:

1. Panel (Panel1) auf die Form legen
2. In das Panel1 ein Label (Label1) setzen
3. Delphi-Quellcode:

   Label1.Align := alTop

4. ein Panel (Panel2) in das Panel1 legen
5. Delphi-Quellcode:

   Panel2.Align := alTop

6. Jede Menge CheckBoxen in das Panel2 packen
7. Bei jeder
   Delphi-Quellcode:

   CheckBox.Align := alTop

8. Delphi-Quellcode:

   Panel2.AutoSize := True

9. Delphi-Quellcode:

   Panel1.AutoSize := True

Doppelklick auf Label1 und dort schreiben:

Delphi-Quellcode:

Panel2.Visible := not Panel2.Visible;