本文提供了一个Delphi程序示例，演示了如何通过输入组件名称来获取并列出该组件及其父类的所有信息。首先注册了几个基本的Delphi组件类，然后利用`GetClass`函数从指定的组件名称开始，递归地获取其所有父类，并将它们显示在列表框中。
procedure TForm1.Button1Click(Sender: TObject);
var
TName : Tclass;
begin
ListBox1.Clear;
RegisterClasses([TButton,TEdit,TListBox,TRadioButton, TPanel]); //要先注册类，才能使用GetClass
TName := GetClass(Edit1.Text);
while TName<>nil do
begin
ListBox1.Items.Add(TName.ClassName);
TName := TPersistentClass(TName.ClassParent);
end;
end;
由类名获取父类-delphi
最新推荐文章于 2020-11-27 19:49:24 发布
扫一扫
372
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
