基本類資訊

此示例顯示如何使用 ClassTypeClassParent 屬性獲取元件的祖先。它在表單 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 的