Zuklappbare Komponenten

[Sir Rufo]

Zitat von 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;

sehr geil

Wenn es mit Bordmitteln etwas mehr sein darf:

1. Panel (Panel1) auf die Form legen
2. In das Panel1 ein Label (Label1) setzen
3. Label1.Align := alTop
4. ein Panel (Panel2) in das Panel1 legen
5. Panel2.Align := alTop
6. Jede Menge CheckBoxen in das Panel2 packen
7. Bei jeder CheckBox.Align := alTop
8. Panel2.AutoSize := True
9. Panel1.AutoSize := True

Doppelklick auf Label1 und dort schreiben:
Panel2.Visible := not Panel2.Visible;