如题!要怎么写,才让TZikkou = class(TComponent);这个定义的新类才起作用?小弟菜鸟,请大家帮帮我!感谢中!type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
   procedure Execute1;
    procedure Execute2(Sender: TObject);
  type
   TZikkou = class(TComponent)
   end;
  end;

解决方案 »

  1.   

    定义的新类起作用?
    您的问题是“如何使用一个自定义类?”
    创建此类的对象,类就“起作用了”,不知道这样理解对不对var
      Zikkou: TZikkou;
      zikkou := TZikkou.Create;
      

  2.   

    type
       TZikkou = class(TComponent)
        SomeParam: integer; 
       end;  TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
      public
       procedure Execute1;
       procedure Execute2(Sender: TObject);
       Zikkou1: TZikkou;  //    <-------------------
      end;
      

  3.   

    type
    //需要放在外边,里边的话你使用D2010试试看!
      TZikkou = class(TComponent)
      end;  TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
      public
        procedure Execute1;
        procedure Execute2(Sender: TObject);
      end;
      

  4.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs;type
      TForm1 = class(TForm)
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     type
       TZikkou = class(TComponent)
       end;var
      Form1: TForm1;implementation{$R *.dfm}end.
      

  5.   

    类里定义类倒是可以,不过只在java里见过,C++应该也可以,Delphi不懂哈。