Delphi - dbGrid全选

Question

我在TwwdbGrid上添加了一个复选框字段来选择记录，我想知道是否可以在网格上的字段标签上放置一个复选框，当用户点击时它，它选择了所有的字段，任何人都知道如何做到这一点???

提前致谢

Answer 1

我能想到的唯一方法是使用 TImageList 并覆盖 DoCalcTitleImage 。下面是一个精简版本，我已经将网格子类化，并在列上添加了对各种图像的支持。

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 事件来处理它。