クラス名を知るには？ (ID:28582)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 type TPanelEx = class(TPanel) public function Get(CName: string): Boolean; end; function TPanelEx.Get(CName: string): Boolean; var aClass: TClass; begin result := True; aClass := Self.ClassType; while aClass <> nil do begin // if aClass.ClassName = CName then exit; if aClass.ClassNameIs(CName) then exit; aClass := aClass.ClassParent; end; result := False; end; var PE: TPanelEx; procedure TForm1.Button1Click(Sender: TObject); begin PE := TPanelEx.Create(Self); if PE.Get('TWinControl') then ShowMessage('当たり'); end;