<li id="j64py"><acronym id="j64py"></acronym></li>

  • <em id="j64py"></em>

    <em id="j64py"><acronym id="j64py"></acronym></em>
    <dd id="j64py"></dd>
    <em id="j64py"><acronym id="j64py"><input id="j64py"></input></acronym></em>
    <rp id="j64py"><object id="j64py"><blockquote id="j64py"></blockquote></object></rp>
    <button id="j64py"><acronym id="j64py"></acronym></button>
    捐助郴維網
    感謝您對郴維網的支持,你的支持將是郴維網持續發展的動力!
    二維碼
    ×
    當前位置:郴維網 >基礎知識 > 正文
    9 2020.03

    關于類的入門例子(7): 遍歷窗體的所有父類

    點擊次數:670 更新時間:2020-3-9 18:50:40  【打印此頁
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    //
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShowMessage(Self.ClassName);                         {TForm1      - Form1 的類名}
      ShowMessage(Self.ClassParent.ClassName);             {TForm       - Form1 的父類名}
      ShowMessage(Self.ClassParent.ClassParent.ClassName); {TCustomForm - Form1 的爺爺類名}
    end;
    
    //
    procedure TForm1.Button2Click(Sender: TObject);
    var
      MyClass: TClass;
      {TClass 是 TObject 的類引用; 它和 TObject 有著相同的功能, 但總之不是一個類型}
    begin
      {對象的 ClassType 方法返回對象的 TClass}
      ShowMessage(Self.ClassType.ClassName); {TForm1 - Form1 的類名}
    
      MyClass := Self.ClassType;
      ShowMessage(MyClass.ClassName);        {TForm1 - Form1 的類名}
    end;
    
    //
    procedure TForm1.Button3Click(Sender: TObject);
    var
      MyClass: TClass;
    begin
      {對象的 ClassParent 方法返回的也是 TClass, 可以把對象的 ClassParent 賦予 TClass 變量}
    
      MyClass := Self.ClassType;
      ShowMessage(MyClass.ClassName); {TForm1      - Form1 的類名}
    
      MyClass := MyClass.ClassParent;
      ShowMessage(MyClass.ClassName); {TForm       - Form1 的父類名}
    
      MyClass := MyClass.ClassParent;
      ShowMessage(MyClass.ClassName); {TCustomForm - Form1 的爺爺類名}
    end;
    
    //遍歷窗體的所有父類
    procedure TForm1.Button4Click(Sender: TObject);
    var
      MyClass: TClass;
    begin
      MyClass := Self.ClassType;
    
      while MyClass <> nil do
      begin
        ShowMessage(MyClass.ClassName);
        MyClass := MyClass.ClassParent;
      end;
    
    {將依次顯示:
      TForm1
      TForm
      TCustomForm
      TScrollingWinControl
      TWinControl
      TControl
      TComponent
      TPersistent
      TObject
    }
    end;
    
    end.
    
    Tips
    郴維網為您提供各類專業服務:
    軟件開發,電腦配件銷售,WIFI路由器銷售,上門電腦維修,上門安裝系統,系統安裝,軟、硬件安裝,電腦除塵清灰,顯示器維修,WIFI安裝調試,服務器維護,數據恢復,密碼破解,網絡布線,網絡檢修,打印機維修,打印機加碳粉,蘋果電腦安裝系統,蘋果電腦安裝雙系統,監控安裝維護,電腦外包,筆記本電腦維修,餐飲、美容行業軟件安裝 等。。。。。。
    點擊次數:670 更新時間:2020-3-9 18:50:40  【打印此頁
    關鍵詞推薦:郴州電腦城 郴州電腦維修公司 維修電腦公司 郴州軟件開發 上門電腦維修 上門安裝系統 筆記本電腦維修 郴州打印機維修 打印機加碳粉 電腦安裝雙系統 蘋果電腦雙系統 液晶顯示器維修 聯想筆記本維修 聯想筆記本維修電話 戴爾筆記本維修電話 郴州戴爾筆記本維修 戴爾筆記本郴州維修點 華碩筆記本維修點 郴州華碩筆記本維修 郴州筆記本上網維修
    亚洲成a人片77777,玩弄漂亮少妇高潮大叫,国产重口老太和小伙,两个黑人挺进校花体内np