开发小兵

var state:short ;begin state:=GetKeyState(VK_CAPITAL); if(state=1) then self.Edit1.ShowHint:=true; then ShowMessage('Capslock on') else ShowMessage('Capslock off');end; 

根据dbgried的值修改背景颜色   if cpxxDBGridEh.SumList.RecNo mod 2 = 1 then         Background := $00FFFFFF     else         Background := $E7FEE1;  //以上根据行改变颜色     if Column.FieldName='CREDIT' then  ...