／／记住它们各自没有生成自己的类对象
type
MyClass1=class(TParentClass)
public
procedure Class1Procedure1;
procedure Class1Procedure2;
end;
type
MyClass2=class(TParentClass)
public
procedure Class2Procedure1;
procedure Class2Procedure2;
end;
implementation
procedure MyClass1.ClassProcedure1;
begin
//class process 1
end;
procedure MyClass1.ClassProcedure2;
begin
//class process 2;
end;
procedure MyClass1.ClassProcedure1;
begin
//想调用MyClass2.ClassProcedure1;怎么办？？？？
end;
procedure MyClass1.ClassProcedure1;
begin
//想调用MyClass2.ClassProcedure1;怎么办？？？？？
end;
记住类各自不能生成类对象，因为我写的控件。
