unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, plSetPrinter;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    plSetPrinter1: TplSetPrinter;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  RTTI,
  TypInfo;

{$R *.DFM}

//=============================================================================
//  継承元のクラスのプロパティも含めて列挙
//  TRttiType.GetPropertiesでプロパティのリストを取得する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LRttiContext  : TRttiContext;
  LRttiType     : TRttiType;
  LProperties   : TArray<TRttiProperty>;
  LRttiProperty : TRttiProperty;
  LCount        : Integer;
begin
  ListBox1.Items.Clear;
  LCount := 0;

  LRttiType := LRttiContext.GetType(TypeInfo(TplSetPrinter));

  ListBox1.Items.BeginUpdate;
  if Assigned(LRttiType) then begin
    LProperties := LRttiType.GetProperties;

    for LRttiProperty in LProperties do begin
      inc(LCount);
      if CheckBox1.Checked then begin
        ListBox1.Items.Add(LRttiProperty.Name);
      end else begin
        ListBox1.Items.Add(LRttiProperty.ToString);
      end;
    end;
  end;
  ListBox1.Items.EndUpdate;

  Label1.Caption := IntToStr(LCount);
end;

//=============================================================================
//  現在のクラスで追加したプロパティのみを取得
//  TRttiType.GetDeclaredPropertiesでプロパティのリストを取得する
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LRttiContext  : TRttiContext;
  LRttiType     : TRttiType;
  LProperties   : TArray<TRttiProperty>;
  LRttiProperty : TRttiProperty;
  LCount        : Integer;
begin
  ListBox1.Items.Clear;
  LCount := 0;

  LRttiType := LRttiContext.GetType(TypeInfo(TplSetPrinter));

  ListBox1.Items.BeginUpdate;
  if Assigned(LRttiType) then begin
    LProperties := LRttiType.GetDeclaredProperties;

    for LRttiProperty in LProperties do begin
      inc(LCount);
      if CheckBox1.Checked then begin
        ListBox1.Items.Add(LRttiProperty.Name);
      end else begin
        ListBox1.Items.Add(LRttiProperty.ToString);
      end;
    end;
  end;
  ListBox1.Items.EndUpdate;

  Label1.Caption := IntToStr(LCount);
end;

end.