请问在Delphi程序中出现的将className赋值给变量是什么意思？

[da_yu]

请问在Delphi程序中出现的将className赋值给变量是什么意思？
看上去className在程序中是个字符串，查classes单元却看到
className的定义是一段汇编代码，它究竟是什么？怎么运用？谢谢！

[chenwenfeng2002]

说清楚，举个例子！

[flyingkiller]

用来做动态代码的。
可以在要求非常大灵活性的程序中实现动态生成控件、Form。

[广州接入]

ClassName 存放的是类名，不是实例名。
如：
var
MyMemo:TMemo;
则MyMemo.ClassName 为TMemo.实例名为MyMemo.
用途当然很多。如:
在Form的Keypress事件里。将回车换成Tab功能。
if uppercase(sender.classname) <> 'TMEMO' then
//TMemo控件的回车当然不能处理成Tab功能。这是其它类型的控件一回车就变成按Tab键了。
begin
perform(wm_nextdlgctl,0,0);
end;

[da_yu]

谢谢几位的回答。昨晚又回去查了一下，似乎ClassName还是
TObject的一个方法，就是解释有点晦涩难懂。

[chinesetree]

CLASSNAME是一个类方法，也是一个虚方法，正是因为它是虚方法，
才可以被子类用如下的方式引用：
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:=Sender.ClassName;
end;
结果为TButton。

[da_yu]

谢谢！可以结题了。怎么给分？