DBGrid

不允许下拉

 if   (key=VK_DOWN)   and   (resultset.RecNo>= resultset.RecordCount)   then
        key:=0;
       if   (key=VK_TAB)   and   (DBGridEh1.SelectedField.FieldNo=resultset.FieldCount)   then
        key:=0;  

 

valuetype = fvtsum
fieldname = ***
displayformat := #,##0.00000000%    dbgrid  小数转百分比
footer.displayformat := #,##0.00000000

 

      begin
         i:=dbgrideh1.SelectedField.FieldNo;   
         try       定位到网格
         line := dbgrideh1.Columns[i].Field.Value ;
          clipboard.settextbuf(pchar(line));  复制
         except
         end;;
      end;

 

单个网格颜色 

ongetcellparams事件中处理
 Background := 颜色；