Schau dir mal folgenden Code an. Der sollte dein Problem lösen.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i=0; i < Form1->ComponentCount; i++)
{
// Alle Labels verändern
if (Form1->Components[i]->ClassNameIs("TLabel"))
{
dynamic_cast<TLabel*>(Form1->Components[i])->Caption = "Alle Labels auf gleichen Wert setzen";
}
// oder eine spezielle Behandlung
if (Form1->Components[i]->ClassNameIs("TLabel"))
{
if (dynamic_cast<TLabel*>(Form1->Components[i])->Name == "Label1")
dynamic_cast<TLabel*>(Form1->Components[i])->Caption = "Ausnahme Label1";
}
}
}
[ Dieser Beitrag wurde am 28.12.2002 um 04:03 Uhr von Jansen editiert. ]
@happy builder
vielen dank, funzt einwandfrei.
desweiteren check´ ich jetzt endlich
die dll-geschichte (einbinden etc.)
ThanX
<edit>
Bitte unbedingt beachten:
Die DLL muss, damit alles klappt, als Endgültige Version kompiliert werden. (Projekt->Optionen->Compiler).
Ausserdem muss der Name der DLL "keydll.dll" lauten, oder aber der Code entsprechend angepasst werden.
</edit>