本文整理自网络,侵删。
procedure TForm1.Button1Click(Sender: TObject);
var
TName : Tclass;
begin
ListBox1.Clear;
//要先注册类,才能使用GetClass
RegisterClasses([TButton,TEdit,TListBox,TRadioButton, TPanel]);
TName := GetClass(Edit1.Text);
while TName<>nil do
begin
ListBox1.Items.Add(TName.ClassName);
TName := TPersistentClass(TName.ClassParent);
end;
end;
相关阅读 >>
Delphi windows 编程[17] - 更换菜单: loadmenu、destroymenu、setmenu
Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar
Delphi 实现类似windows的查找功能-遍历整个硬盘目录
更多相关阅读请进入《Delphi》频道 >>