基本類資訊

此示例顯示如何使用 ClassType 和 ClassParent 屬性獲取元件的祖先。它在表單 TForm1 上使用了一個按鈕 Button1: TButton 和一個列表框 ListBox1: TListBox。

當使用者單擊該按鈕時，按鈕類的名稱及其父類的名稱將新增到列表框中。

procedure TForm1.Button1Click(Sender: TObject) ;
var
  ClassRef: TClass;
begin
   ListBox1.Clear;
   ClassRef := Sender.ClassType;
   while ClassRef <> nil do
   begin
     ListBox1.Items.Add(ClassRef.ClassName) ;
     ClassRef := ClassRef.ClassParent;
   end;
end;

使用者單擊按鈕後，列表框包含以下字串：

• TButton 的
• TButtonControl
• TWinControl
• TControl
• TComponent
• TPersistent
• TObject 的