TGridのセルに枠を描画したい (ID:151126)

名前

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

本文 ああ、動的に列を追加する場合は想定しておりませんでした。すみません。 恐らく、TGridコンポーネントは配下の子コポーネントをTColumnとして見なしているでしょうから、 イレギュラーなTRectangleコンポーネントもカウントしているのでしょう。 そこで、列を追加する前に、TRectangleコンポーネントをどけてあげて、 列の追加後にTGridコンポーネントに戻してあげましょう。 procedure TForm1.Button1Click(Sender: TObject); var Column: TColumn; begin Rectangle1.Parent := nil; Column := TStringColumn.Create(Grid1); Column.Header := '新しい列'; Grid1.AddObject(Column); Rectangle1.Parent := Grid1; end; 子コポーネントありきのTGridの様なコンポーネントは、 この「乗っける」方式は他の場面でも問題が出るかもしれませんね。