德尔福- dbGrid选择所有

Question

我在TwwdbGrid上设置了一个复选框字段来选择记录，我想知道是否可以在网格上字段的标签上放置一个复选框，当用户单击它时，它会选择所有的字段，有人知道怎么做吗？

​

​

提前感谢

Answer 1

我能想到的唯一方法就是使用一个DoCalcTitleImage. TImageList并覆盖这里是一个简化的版本，在这里我对网格进行了子类化，并在列中添加了对各种图像的支持。

procedure TRGDBGrid.DoCalcTitleImage(Sender: TObject; Field: TField;
  var TitleImageAttributes: TwwTitleImageAttributes);

begin
  inherited;
  { Get Image Number }
  lAttr := Attribute_Of_Field;
  TitleImageAttributes.ImageIndex := ord(lAttr);
end;

您可以使用两个图像-一个未选中和一个复选框。您需要使用OnTitleClick事件来处理它。