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;

←解決時は質問者本人がここをチェックしてください。

戻る