怎样知道Form上控件的类型？

[YAMABACK]

遍历Form上的Controls，怎样知道Controls[i]是什么控件？

[samchoy]

Controls[i]->ClassName()
如
ShowMessage(Controls[0]->ClassName());

[samchoy]

如果是要找某种类型的控件，可以用ClassNameIs()
如

if (Controls[0]->ClassNameIs("TEdit"))
dosomething...

[Maconel]

Controls[i]->ClassName()可以得到他的类名，比如如果是button控件，就能得到"TButton"，
Controls[i]->Name可以得到这个控件的名字，比如得到"Button1"。

[我不懂电脑]

void __fastcall TForm1::FormCreate(TObject *Sender)

{
for (int i = 0; i < ComponentCount; i++)
ListBox1->Items->InsertObject(0,
Components[i]->Name,
(TObject *)Components[i]);

}

void __fastcall TForm1::ListBox1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)

{
if (Button == mbRight)
{
TClass ClassRef;
int Index = ListBox1->ItemAtPos(Point(X,Y), true);
// only components that are controls have a position
// make sure the component is a control
for (ClassRef = ListBox1->Items->Objects[Index]->ClassType();
ClassRef != NULL;
ClassRef = ClassRef->ClassParent())
if (String(ClassRef->ClassName()) == "TControl")
{
TControl *TheObject = (TControl *)ListBox1->Items->Objects[Index];

StatusBar1->SimpleText =
TheObject->Name + " is at (" +
IntToStr(TheObject->Left) + ", " +
IntToStr(TheObject->Top) + ")";
break;
}
if (ClassRef == NULL) // if it wasn't a control
MessageBeep(0);
}
}

[Maconel]

哈，咱俩都来晚了啊。