掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGridの選択行の色について (ID:150222)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
DBGridは、ほとんど使っていないのですが、 ParadoxならRecNoが使えるので、以下のような感じで、出来るかもしれません。 DBGridのDrawingStyleプロパティにgdsClassicを指定し、 フォームに、SelectRecNoを追加。 type TForm1 = class(TForm) ・・ private { Private 宣言 } SelectRecNo: Integer; end; DataSourceのDataChangeイベントに、 procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField); begin SelectRecNo := DataSource1.DataSet.RecNo; DBGrid1.Invalidate; end; DBGridのDrawColumnCellイベントで、 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with TDBGrid(Sender) do begin if (DataSource.DataSet.RecNo = SelectRecNo) and not (gdSelected in State) then begin Canvas.Brush.Color := clSkyBlue; Canvas.Font.Color := clBlack; end; if gdSelected in State then begin Canvas.Brush.Color := clHighlight; Canvas.Font.Color := clHighlightText; end; DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.