Delphi 获取选中的行或列，选中到某个行数

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);//刷新表单之后，跳转到操作之前的行数选并且选中