摘要: if Panel = StatusBar1.Panels[3] then begin Panel.Text := Atext; StatusBar.Canvas.Font.Color := clBlue; StatusBar.Canvas.TextRect(Rect, Rect.left, Rect 阅读全文
posted @ 2017-12-21 06:30 后凤凰 阅读(266) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2017-12-21 06:23 后凤凰 阅读(364) 评论(0) 推荐(0)
摘要: 保存及生成单据重复执行问题 保存事件出发快捷键F5,在特定情况下会出现事件被触发多次,前次事件并没有执行完成,二次事件又进入执行的情况 If action.tag=99 then Exit Action.tag:=99; Try Finally Action.tag:=0; End; 对输入的金额数据进行检查 If curr0 and curr9999999 then Begin... 阅读全文
posted @ 2017-12-21 06:22 后凤凰 阅读(88) 评论(0) 推荐(0)