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

名前

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

本文 現在以下の状態で動作していますが、 アプリ終了時に「無効なポインタ操作」で エラーが発生します。 以下コードの ＞ TPanel(Compo).BorderWidth := 10; ＞ TTabSheet(Compo).BorderWidth := 10; ＞ TRichEdit(Compo).BorderWidth := 10; この部分を変更して、 BorderWidth をもつ全てのコンポーネントの 設定を同じ値に変更するようにできませんか？ procedure TForm1.FormShow(Sender: TObject); var Index: Integer; Compo: TComponent; CName: AnsiString; ClassRef: TClass; begin for Index := 1 to ComponentCount do begin Compo := Components[Index - 1]; CName := Compo.ClassName; ClassRef := Compo.ClassType; while ClassRef <> Nil do begin if ClassRef.ClassName = 'TWinControl' then begin RichEdit1.Lines.Add(CName); TPanel(Compo).BorderWidth := 10; TTabSheet(Compo).BorderWidth := 10; TRichEdit(Compo).BorderWidth := 10; end; ClassRef := ClassRef.ClassParent; end; end; end;