掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridの描画をListBoxと同じイメージに (ID：4322)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ちょっと文章から何をしたいのかが読み取れません。 想像ですが、 TMyGridStyle=(mgsGrid, mgsList); TMyGrid=class(TStringGrid) ... private FStyle: TMyGridStyle; procedure SetStyle(Value: TMyGridStyle); protected procedure Paint; override; ... published property Style: TMyGridStyle read FStyle write SetStyle; end; implementation procedure TMyGrid.SetStyle(Value: TMyGridStyle); begin FStyle := Value; invalidate; end; procedure TMyGrid.Paint; begin case FStyle of mgsGrid: (* Gridとして描画 *) mgsList: (* Listとして描画 *) end; end; こういうことがやりたいのでしょうか。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.