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

posted on   癫狂编程  阅读(459)  评论(0编辑  收藏  举报

努力加载评论中...

导航

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8
好的代码像粥一样,都是用时间熬出来的
点击右上角即可分享
微信分享提示