delphi 有没有什么控件，能够实现可选，不可选，如下图

[willdavis]

我要做一个选择数据记录的功能，用户可以选择网格中的控件。
但是我想能不能控制住，哪些记录是可以看到，但是不能选择的。
如图

[willdavis]

不能选的这行，显示不同字体颜色或者不同底色

[hongss]

看这个图，貌似是用DBGrid实现的

[日立奔腾浪潮微软松下联想]

使用TDataSet.Bookmark预存只读的那些记录，比如存在一个动态数组里，DBGrid点击的时候判断当前的Bookmark是否在那个数组中，如果在把那个字段的CheckBox设置Endabled := false;就可以了。

[Ccccch丶]

dbgrd1.DataSource.DataSet.RecNo 不是可以知道是第几行嘛

[lyhoo163]

DBGridEh可以做，出这样的功能。

[willdavis]

如上图的图片，当数量小于100时，这笔记录不能选择，能不能这样实现？

[willdavis]

如图

[willdavis]

当然这个条件我可以自由设定，当条件满足或者不满足的时候，不能选取

[BlueStorm]

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh, EhLibVCL,
  GridsEh, DBAxisGridsEh, DBGridEh, Data.DB, DBAccess, MSAccess, MemDS;

type

  TDBGridEh = Class(DBGridEh.TDBGridEh)
  public
    function  ColumnByName(Name: String): TColumnEh;
    procedure DrawGrayedCheckBox(const Rect: TRect; DataCol: Integer;
                                    Column: TColumnEh; State: TGridDrawState);
  end;

[BlueStorm]

  TForm1 = class(TForm)
    Connection1: TMSConnection; //数据库组件为sdac
    Query1: TMSQuery;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh1CellClick(Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

[BlueStorm]

implementation

{$R *.dfm}

{ SQL测试脚本:
  use msdb
  go

  DROP TABLE test
  CREATE TABLE test (选取 BIT, 数量 INTEGER)
  INSERT INTO test VALUES (0, 200), (1, 50), (null, 3), (1, 80), (1, 300)
  SELECT * FROM test
}

function TDBGridEh.ColumnByName(Name: String): TColumnEh;
var
  I: Integer;
begin
  Result := nil;
  for I := 0 to Columns.Count-1 do
  begin
    if Columns[I].Title.Caption = Name then
    begin
      Result := Columns[I];
      break;
    end;
  end;
end;

[yuetianbao]

行 改变时，根据条件设置 表格或数据集的 readonly := true;

[yuetianbao]

引用 17 楼 yuetianbao 的回复:

行 改变时，根据条件设置 表格或数据集的 readonly := true;

根据你使用的控件，试试写在Dataset控件或Grid控件，视你自己的情况，如果表格支持还可以单独设置这一列不可编辑。

[boylafong]

DBGridEh1CellClick中想怎么加条件就怎么加条件啊

[BlueStorm]

完整的示范代码在 https://mp.csdn.net/postedit/80764613
csdn论坛目前有bug，发不了完整的代码。

[zhoufs]

试试InfoPower数据库控件吧，功能强大！

[buding79]

dbgrideh

[lyhoo163]

建议对数据集，增加bin类型字段，
1、按安一定的条件，为此字段赋值。
2、在选择时，依据此字段的值，确定是否可操作。

[qq_42550717]

数据集里面添加 CONVERT(BIT, 0) XZ 字段……
根据该字段的值判断……

[_码农一个_]

单元格事件里，点选，条件判断一下，替换当前的选择状态值。