GetClass函数 - Borland Delphi 开发工作者手册

返回介绍

GetClass函数

发布于 2019-08-04 字数 691 浏览 959 评论 0

Classes

function GetClass(const ClassName:string):TPersistentClass;

GetClass对给定的一个类名返回一个己经登记的持久类。

调用GetClass可以从一个类名获得一个类。这个类可以被用作一个需要类的函数或方法的参数。

以下的例子允许用户输入一个图形类的名,并进入一个编辑控制,当一个按钮被点按时。类名的缺省扩展名显示在另一个编辑控制中。

procedure TForm1.BitBtn1Click(Sender:TObject);

begin

{确信类是己经被登记,从而GetClass可以使用}

{Usually,thiswould go somewhere else where it is only executed once}

RegisterClasses([TIcon,TBitmap,TJPEGImage,TMetafile]);

Edit1.Text:=GraphicExtension(TGraphicClass(GetClass(Edit2.Text)));

end;

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!