Programowanie w Borland C++ Builder

Wyliczanie komponentów na formularzu, dostęp do komponentów poprzez pętlę.

Jednym ze sposobów dobrania się do wszystkich komponentów na formularzu jest wykorzystanie przypisania polimorficznego i funkcji FindComponent, o tym pisałem już w artykule rzutowanie typów, przypisanie polimorficzne, dla porządku jednak przypomnę. Funkcja FindComponent pobiera tylko jeden argument i jest to nazwa komponentu i jeżeli komponent o takiej nazwie zostanie znaleziony, to funkcja zwraca do niego uchwyt. Wykorzystując przypisanie polimorficzne można w ten sposób zmienić dowolną właściwość takiego komponentu. Zastosowanie takiego rozwiązania byłoby mało praktyczne, gdyby nie jedna rzecz, otóż jeżeli mamy na formularzu kilka komponentów o podobnej nazwie, np. Button1, Button2, Button3 itd. to można wykorzystując pętlę zmienić hurtem właściwość dla wszystkich takich obiektów. Można wykorzystać dwie metody z przypisania polimorficznego, pierwsza to dynamic_cast, pozwala rzutować typ (klasę) na wszystkie komponenty wywodzące się z klasy na którą jest rzutowana, czyli jeśli chcemy zmienić właściwości kilku obiektów typu TButton, to można to zrobić za pomocą właśnie tej metody:

// Plik źródłowy np. Unit1.cpp.
//--------------------------------
void __fastcall TForm1::TButton1Click(TObject *Sender)
{
for(int i = 0; i < 5; i++)
dynamic_cast<TButton *>(FindComponent("Button" + (String)i))->Caption = "Przycisk" + (String)i;
}
//--------------------------------

W przykładzie zmianie ulegnie właściwość Caption obiektów typu TButton z Button na Przycisk.
Jeżeli jednak chcemy wpłynąć na właściwość kilku komponentów, ale należących do różnych klas, należy użyć metody reinterpret_cast, jednak rzutować należy na klasę wspólną dla tych komponentów, lub na inną klasę, ale taką która posiada właściwość którą chcemy zmienić, nazwy tych różnych komponentów muszą być jednak podobne, żeby można było dostać się do nich poprzez pętlę.

// Plik źródłowy np. Unit1.cpp.
//--------------------------------
void __fastcall TForm1::TBUtton1Click(TObject *Sender)
{
for(int i = 0; i < 5; i++)
reinterpret_cast<TForm1 *>(FindComponent("Object" + (String)i))->Caption = "Komponent" + (String)i;
}
//--------------------------------

W ten sposób możemy się jednak dobrać tylko do obiektów, których nazwy są nam poniekąd znane. Wykorzystując przypisanie polimorficzne można się jednak dobrać do wszystkich komponentów znajdujących się na formularzu. W przykładzie poniżej wyliczymy w obiekcie Memo1 wszystkie komponenty znajdujące się na formularzu i co najważniejsze, nie musimy wcale znać nazw tych komponentów, ani typów klas z których się one wywodzą:

// Plik źródłowy np. Unit1.cpp.
//--------------------------------
void __fastcall TForm1::TBUtton1Click(TObject *Sender)
{
Memo1->Lines->Clear();
TComponent *Temp;
for(int i = Form1->ComponentCount - 1; i >= 0; i--)
{
Temp = Form1->Components[i];
Memo1->Lines->Add("Nazwa obiektu: " + reinterpret_cast<TForm *>(Temp)->Name + "\tKlasa obiektu: " + reinterpret_cast<TForm *>(Temp)->ClassName());
}
}
//--------------------------------

W przykładzie, w obiekcie Memo1 zostaną wyświetlone nazwy wszystkich obiektów znajdujących się na formularzu i typy klas z których te obiekty się wywodzą. Możemy teraz dokonać zmiany dowolnej właściwości wszystkich obiektów na formularzu, można na przykład zmienić właściwość Anchors dla wszystkich obiektów znajdujących się na formularzu a posiadających właściwość Align. Dlaczego tak? A dlatego, że właściwość Anchors pozwala na automatyczną zmienę rozmiaru i położenia obiektów na formularzu w odniesieniu do rozmiaru formularz (dokładniej o tym w następnej poradzie):

// Plik źródłowy np. Unit1.cpp.
//--------------------------------
void __fastcall TForm1::TBUtton1Click(TObject *Sender)
{
TComponent *Temp;
for(int i = Form1->ComponentCount - 1; i >= 0; i--)
{
Temp = Form1->Components[i];
TAnchors A;
A.Clear();
A = A << akRight << akBottom << akTop << akLeft;
if(reinterpret_cast<TForm *>(Temp)->Align == alCustom)
reinterpret_cast<TForm *>(Temp)->Anchors = A;
}
}
//--------------------------------