delphi语法---class of AClass用法

[copy_paste]

又来问啦。

type
TMyClass = class of TForm;
什么东西，这个。怎么用的

[natrium11]

就是存储类型信息。
Applications should rarely, if ever, use TClass.

[natrium11]

Applications should rarely, if ever, use TClass directly.

I'm Sorry.

[copy_paste]

各位不要用英文，小子E文只识ABC,能不能用些例子，谢谢

[王集鹄]

to Ctrl+C;Ctrl+V:
//看看Classes.pas的例子吧

procedure TForm1.Button1Click(Sender: TObject);
begin
with TMyClass.Create(Self) do try
ShowModal;
finally
Free;
end;
end;

[Kingron]

好像是类参考吧？

[initora]

关于物件参考（Object reference）与类别参考(Class reference):
type
TMyClass = class of TForm;
宣告了关于TForm的一个类别参考，意即C++中的别名。
var
MyClass: TForm;
宣告了关于TForm的一个物件参考。

注意点：
建构函数呼叫物件参考时将初始化一个物件的所有栏位，并返回一个指向此物件的指针。
...........物件参考时并不.............任何栏位，只简单的返回一个指向此物件的指针。
指定兼容时适时调用物件参考建构ADT。

[copy_paste]

有点清楚了,太概是说:
//MyClass这用
zswang方法:可以生成一个TMyClass指向的类的一个对象,但是它是不会用到构造函数中初始的部分,只是有一个实例指针而已? 那它应该可以用TMyClass中的那些公有的函数吧?
MyClass: TMyClass;

MyForm: TForm;
to initora
"指定兼容时适时调用物件参考建构ADT。 "这句是什么意思?我刚明白面向对象的意思,不理解你的意思.

[copy_paste]

??

[hp1200]

up

[hp1200]

up