Alle Elemente (Controls) einer Form durchlaufen und auflisten - C++ Builder Snippets
C++ Builder Snippets
Alle Elemente (Controls) einer Form durchlaufen und auflisten.
Das Auflisten aller Elemente einer Form ist relativ einfach:
|
1 2 3 4 5 |
//Alle Elemente durchlaufen und auflisten for (int i=0; i<Form1->ControlCount;i++) { ListBox1->Items->Add(Form1->Controls[i]->Name ) ; } |
Ich möchte in diesem Beispiel zudem zeigen wie, die einzelnen Controls aufgrund ihres Indexes wieder angesprochen werden können. Durch klicken auf den Namen eines Controls erhält dieses den Fokus und die Eigenschaften Top und Left werden ausgelesen.
Beispiel:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
//--------------------------------------------------------------------------- //******** ******** //******** Dieses Beispiel stammt von www.ecodes.de ******** //******** ******** #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { //ListBox Löschen ListBox1->Clear() ; //Alle Elemente durchlaufen und auflisten for (int i=0; i<Form1->ControlCount;i++) { ListBox1->Items->Add(Form1->Controls[i]->Name ) ; } } //--------------------------------------------------------------------------- void __fastcall TForm1::ListBox1Click(TObject *Sender) { TComponent* TempCom; TempCom= Components[ListBox1->ItemIndex]; AnsiString CName=TempCom->ClassName(); if(CName != "TLabel") { dynamic_cast<TWinControl*>(TempCom)->SetFocus(); Label1->Caption ="Left: " + (AnsiString) dynamic_cast<TWinControl*>(TempCom)->Left; Label2->Caption ="Top: " + (AnsiString) dynamic_cast<TWinControl*>(TempCom)->Top; }else{ Label1->Caption ="Left: " + (AnsiString) dynamic_cast<TControl*>(TempCom)->Left; Label2->Caption ="Top: " + (AnsiString) dynamic_cast<TControl*>(TempCom)->Top; } } //--------------------------------------------------------------------------- |