掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGridの列移動について (ID：27492)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
var rowno : Integer; //行位置保持用 //行位置の保持 procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet); begin rowno := DataSet.RecNo; end; //描画 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with TDBGrid(Sender) do begin //保持している変数と選択されている行が一致する場合 if (DataSource.DataSet.RecNo = rowno) then Canvas.Brush.Color := clred; DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; もっといい方法があると思いますが自分のレベルではこれが限界です。 ちなみにFixDBGridは「AsRowSelect」プロパティをTrueにするだけでできます。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.