Komponent - rozwijany panel.

[Cyfrowy Baron]

Ja robiłem to inaczej niż Ty, a cały kod to:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Label1Click(TObject *Sender)
{
 int x = dynamic_cast<TLabel *>(Sender)->Tag;

 TPanel *tPanel = dynamic_cast<TPanel *>(FindComponent("Panel" + (String)x));

 if(tPanel->Height > 23)
 {
  for(int i = 120; i > 23; i -= 5)
  {
   tPanel->Height = i;
   Application->ProcessMessages();
  }
  tPanel->Height = 23;
 }
 else
 {
  for(int i = 23; i < 120; i += 5)
  {
   tPanel->Height = i;
   Application->ProcessMessages();
  }
  tPanel->Height = 120;
 }
}

Żadnego kodu więcej nie ma.

[Slynx]

No dobra, ale co odpowiada za to, że te wszystkie okienka przesuwają się w górę (po kliknięciu na któreś), a nie zostają w tym samym miejscu ? Coś musiałeś jeszcze ustawić.
Chyba, że wszystko jest położone na flowlayout, bo na zwykłym panelu i domyślnych ustawieniach to te okienka by się zwinęły, ale miały by cały czas takie same odstępy.
---
niby wszystko działa ale... u Ciebie to wszystko działa jakoś ewidentnie szybciej. Pewnie jeszcze do tego wrócę... jak mi się zacznie ciąć.

[Cyfrowy Baron]

No dobra, ale co odpowiada za to, że te wszystkie okienka przesuwają się w górę (po kliknięciu na któreś), a nie zostają w tym samym miejscu ?

Dzieje się to automatycznie i wynika ze sposobu rozmieszczenia. Na Panel-u głównym umieszczonych jest 5 Panel-i. Każdy z nich jest wyrównany do góry, czyli ma właściwość Align ustawioną na alTop. Dzięki temu, gdy któryś z Panel-i jest zwijany, to pozostałe będące pod nim wyrównują się do góry względem niego. Tyle jeżeli chodzi o przesuwanie. By wyrównać Panel-e względem siebie i względem Panel-u głównego, każdemu z tych 5 Panel-i ustawiłem właściwość AlignWithMargin na true, a we właściwości Margin przypisałem poszczególnym pod-właściwościom takie wartości left=12, top=10, right=11, bottom=10. Dzięki temu Panel-e mają marginesy z każdej strony. To tyle. To co na Panel-ach nie muszę już chyba wyjaśniać.

Mogę zamieścić projekt, ale jak nie masz Embarcadero RAD Studio 2010, nic to Tobie nie da, gdyż właściwości Panel-i ustawiłem w Object Inspector. Jeżeli jednak wiesz czym jest plik *.dfm to możesz podejrzeć jego zawartość i to wiele wyjaśni.

---

[Slynx]

Jak na razie działa świetnie ; p Nie pomyślałem o tym align (u mnie to jest "dock") i zamiast panel podstawiałem flowlayoutpanel, a te jak wszyscy wiedzą są strasznie wolne (wiele razy czytałem tematy na temat optymalizacji właśnie tego komponentu). Więc, dzięki