发信人: nosound()
整理人: (2000-12-06 17:47:22), 站内信件
|
【 在 yanghaijun (亲密战友) 的大作中提到: 】
如果某个类被RegisterClass函数注册过，则可以通过GetClass函数用
名字（字符串）来返回类名，参见GetClass函数的用法。
下面是一个用法示例：
RegisterClasses([TIcon, TBitmap, TJPEGImage, TMetafile]);
Label1.Text := GraphicExtension(TGraphicClass(GetClass(Edit1.Text)));
试试在Edit1中输入不同的字符串
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.98.97.53]
|
|