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方法和你要求的一样啊。

解决方案 »

  1.   

    最后一句我瞎说了,Create是构造函数。
      

  2.   

    在Class1中声明一Class2对象或引用.
      

  3.   

    谢谢lz_0618
    已经实现了。虽然可能会有一些错。
    对于delphi的类的,你说的什么静态方法不是很懂,所以看了VCL的源码也不是很清楚。
    呵呵,谢谢。
    to whoo
    我说的是:不能声明各自的对象进行类进行访问。你说的不行。