delphi 由类名获取父类

本文整理自网络，侵删。

 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强制应用非一次性载入的注册表设置

winsock 实现telnet后门

Delphi 检查声卡是否安装

Delphi 简单实习窗体靠边隐藏

Delphi通过将数据放入exe的资源信息中的方式制作自已的安装工具

Delphi xe7的android应用取得wi-fi的信息

Delphi fdquery1查询，有无返回集

Delphi 使用代理服务器

Delphi使用idhttp.get('') 造成假死(堵塞),请问线程idhttp怎么才能做到不出错?

crc8unt.pas

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 由类名获取父类