FMXのTStringGridのDrawColumnCell (ID:151070)

名前

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

本文 お世話になります。 FMXのTStringGridに、幾つかのTStringColumnとTCheckColumnを設けまして、最初のTStringColumnはNoとして自動で行番号を割り当てる様にするために次の様なコードを書きました。 併せて、CheckCloumnも描画するコードも記述しておりますが、セルが編集状態から抜けた際にチェックボックスが消えてしまいます。 どの様に記述すれば良いかご存知の方居られましたらアドバイス頂けないでしょうか？ procedure TForm1.StringGrid1DrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: Integer; const Value: TValue; const State: TGridDrawStates); begin if Column is TCheckColumn then begin TCheckColumn(Column).DefaultDrawCell(Canvas, Bounds, Row, Value, State); end else if Column.Name = 'AutoNo' then TStringColumn(Column).DefaultDrawCell(Canvas, Bounds, Row, Row + 1, State); end;