掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
クラス名を知るには？ (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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.