Delphi
iteye_220
这个作者很懒,什么都没留下…
展开
-
检测大写字母锁定键的状态
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;2008-11-25 15:37:55 · 944 阅读 · 0 评论 -
根据dbgried的值修改背景颜色
根据dbgried的值修改背景颜色 if cpxxDBGridEh.SumList.RecNo mod 2 = 1 then Background := $00FFFFFF else Background := $E7FEE1; //以上根据行改变颜色 if Column.FieldName='CREDIT' then ...2008-12-04 14:32:36 · 94 阅读 · 0 评论