type
MyClass1=class(TParentClass)
public
procedure Class1Procedure1;
procedure Class1Procedure2;
end;type
MyClass2=class(TParentClass)
public
class procedure Class2Procedure1;
// ^^^^^注意
class procedure Class2Procedure2;
// ^^^^^
end;implementationclass procedure MyClass2.Class2Procedure1;
//^^^ ^^^^^^^^
begin
//class process 1
end;class procedure MyClass2.Class2Procedure2;
//^^^ ^^^^^^^^begin
//class process 2;
end;procedure MyClass1.Class1Procedure1;
begin
MyClass2.Class2Procedure1;//应该可以了!!
end;
procedure MyClass1.Class1Procedure2;
begin
MyClass2.Class2Procedure2;;//应该可以了!!end;delphi中的Class方法和VC中的静态方法是一样的。
我对你的意思的了解不知对不对!!!
你怎么没有看一下VCL的源码呢?因为组件的Create方法和你要求的一样啊。
MyClass1=class(TParentClass)
public
procedure Class1Procedure1;
procedure Class1Procedure2;
end;type
MyClass2=class(TParentClass)
public
class procedure Class2Procedure1;
// ^^^^^注意
class procedure Class2Procedure2;
// ^^^^^
end;implementationclass procedure MyClass2.Class2Procedure1;
//^^^ ^^^^^^^^
begin
//class process 1
end;class procedure MyClass2.Class2Procedure2;
//^^^ ^^^^^^^^begin
//class process 2;
end;procedure MyClass1.Class1Procedure1;
begin
MyClass2.Class2Procedure1;//应该可以了!!
end;
procedure MyClass1.Class1Procedure2;
begin
MyClass2.Class2Procedure2;;//应该可以了!!end;delphi中的Class方法和VC中的静态方法是一样的。
我对你的意思的了解不知对不对!!!
你怎么没有看一下VCL的源码呢?因为组件的Create方法和你要求的一样啊。
已经实现了。虽然可能会有一些错。
对于delphi的类的,你说的什么静态方法不是很懂,所以看了VCL的源码也不是很清楚。
呵呵,谢谢。
to whoo
我说的是:不能声明各自的对象进行类进行访问。你说的不行。