深藍色論壇

代碼: 選擇全部

     
    unit Unit1; 
     
    interface 
     
    uses 
      Windows, Messages, SysUtils, Classes, Graphics, Controls, forms, Dialogs, 
      StdCtrls; 
     
    type 
      TmyMsg = class 
        class procedure my(Sender: TObject); 
      end; 
      Tform1 = class(Tform) 
        Button1: TButton; 
        Button2: TButton; 
        procedure Button1Click(Sender: TObject); 
      private 
        { Private declarations } 
      public 
        { Public declarations } 
      end; 
     
    var 
      form1: Tform1; 
     
     
    implementation 
     
    {$R *.DFM} 
     
    procedure Tform1.Button1Click(Sender: TObject); 
    begin 
      Button2.onClick := TmyMsg.my; 
    end; 
     
    class procedure TmyMsg.my(Sender: TObject); 
    begin 
      showmessage('my'); 
    end; 
     
    end. 
     
     
     
     
    A class method is a method (other than a constructor) that operates on classes instead of objects. The definition of a class method must begin with the reserved word class. For example, 
     
    type 
     
      TFigure = class 
      public 
        class function Supports(Operation: string): Boolean; virtual; 
        class procedure GetInfo(var Info: TFigureInfo); virtual; 
        ... 
      end; 
     
    The defining declaration of a class method must also begin with class. For example, 
     
    class procedure TFigure.GetInfo(var Info: TFigureInfo); 
     
    begin 
      ... 
    end; 
     
    In the defining declaration of a class method, the identifier Self represents the class where the method is called (which could be a descendant of the class in which it is defined). If the method is called in the class C, then Self is of the type class of C. Thus you cannot useSelf to access fields, properties, and normal (object) methods, but you can use it to call constructors and other class methods. 
    A class method can be called through a class reference or an object reference. When it is called through an object reference, the class of the object becomes the value of Self.