5,392
社区成员
发帖
与我相关
我的任务
分享
while i <= DBGridEhMain.Columns.Count-1 do
begin
DBGridEhMain.Columns[i].KeyList.Clear;
DBGridEhMain.Columns[i].KeyList.Add('Y;On');
DBGridEhMain.Columns[i].KeyList.Add('N;Off');
DBGridEhMain.Columns[i].Checkboxes := true;
DBGridEhMain.Columns[i].OnUpdateData := DBGridEhMainColumns0UpdateData;
i := i + 1;
end;