掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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の様なコンポーネントは、 この「乗っける」方式は他の場面でも問題が出るかもしれませんね。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.