掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridの動的なセル結合 (ID:28088)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
どう上手くいかないのか判りませんが、考え方だけ・・・ RowHeigthでは罫線の関係で上手くいきませんというか面倒です。 相手方のCellのRect値を持ってくるほうが良いと思います。 ARect := CellRect(0,3); Rect.Bottom := ARect.Bottom; ってな感じ。 で、動的・・・ 今描画しようとしているのはARow,ACol値ですよね。 ならば、Grid描画範囲内で、ARowを基準に上方向、下方向と各Cellを 走査すれば同じ値か否かはわかりますよね。 つまり、ARowを基準に上方向及び下方向それぞれCellを見ていって、 値が異なればその前のCellまでは同じ内容って事ですよね。 そのCellのRect値をもってくれば、描画枠のTopとBottomはわかり ます。 イベント内に関数でも作成して値を持ってくれば良いでしょう。 {上方向を走査する例}手打ちですのでイメージという事で。 function MyFuncGetTopRow():Integer; var i,RetRow :Integer; begin for i := ARow downto (Sender as TStringGrid).TopRow do begin if (Sender as TStringGrid).Cell[ACol,ARow] = (Sender as TStringGrid).Cell[ACol,i] then begin RetRow := i; end else begin Break; end; end; //RetRow値からTop値を求めて返す---- (略) end; あと、下方(Bottom)も・・・ ってのは如何でしょうか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.