procedure xxx.xxx;
var colName : string;Col:Integer;bm:TBookmark;
begin
bm:=adoselect.GetBookMark;//获取目前ado的行数
colName := cxGridDBKCSL.Controller.FocusedColumn.Caption;
if (colName='XXXX') then
begin
Col := cxGridDBKCSL.FindItemByName(colName).Index;
end;
获取指定的列名,判断列名是否是自己要的,然后或者列的序号
ACanvas.Font.Color := clRed;//改变列的字体颜色
ACanvas.Brush.Color := clRed;//改变列的背景颜色
btncxClick(Sender);//操作之后刷新表单
adoselect.GotoBookmark(bm);//刷新表单之后,跳转到操作之前的行数选并且选中