DBGridEh 表头弄一个单选框，怎么弄的？

[nimeide1234567890]

DBGridEh 表头弄一个单选框，怎么弄的？
然后怎么判断这个单选框选中了？

[lyhoo163]

procedure TNuesingFrm.DBGridEh1TitleClick(Column: TColumnEh);
begin
  if column.Index=0 then                             //验证是否第一列
 begin
  if trim(column.Title.Caption)='选择 √' then  //√
    begin
      column.Title.Caption:='选择 □';
    end
    else begin
      column.Title.Caption:='选择 √';
    end;
  end;
end;

在DBGridEh1TitleClick事件，通过修改列标题名实现。多列可以多加几个
if column.Index=1 then 实现
注意，DBGridEh的列标题，要预设置为"选择 □" 。

[lyhoo163]

procedure TNuesingFrm.DBGridEh1TitleClick(Column: TColumnEh);
begin
  if column.Index=0 then           //验证是否第几列
  begin
     if trim(column.Title.Caption)='选择 √'
       then column.Title.Caption:='选择 □';
       else column.Title.Caption:='选择 √';
   end;
end;

在DBGridEh1TitleClick事件，通过修改列标题名实现。多列可以多加几个 if column.Index=n then 实现 注意:1、DBGridEh的列标题，要预设置为"选择 □" (未选择）。 2、判断主要是通过列标题的值，是否有“√”字符。可通过pos语句判断。

[nimeide1234567890]

引用 1 楼 lyhoo163 的回复:

procedure TNuesingFrm.DBGridEh1TitleClick(Column: TColumnEh);
begin
  if column.Index=0 then                             //验证是否第一列
 begin
  if trim(column.Title.Caption)='选择 √' then  //√
    begin
      column.Title.Caption:='选择 □';
    end
    else begin
      column.Title.Caption:='选择 √';
    end;
  end;
end;

在DBGridEh1TitleClick事件，通过修改列标题名实现。多列可以多加几个 if column.Index=1 then 实现 注意，DBGridEh的列标题，要预设置为"选择 □" 。

虽然是做了个假的checkbox，但是功能完全能实现，厉害。