张志峰的博客

水滴石川，积少成多。

导航

2016年7月23日

Delphi 目前使用delay函数功能

摘要： procedure sdfg.iTimers1Timer4(Sender: TObject);var vsub : Cardinal; vSetinterval: Cardinal;begin vsub := GetTickcount - FCurrSampleTime; vSetinterval 阅读全文

posted @ 2016-07-23 16:41 ╰★张志峰★╮ 阅读(713) 评论(0) 推荐(0)

Delphi Delay 延时计数的功能。 下面的方法都是思路，但是没有用在项目上

摘要： procedure Tfrm_InstrumentControl.aa;var CurLength: Word; vTimeLength: Word;begin Screen.Cursor := crHourGlass; try vTimeLength := StrToIntDef(num_Gros 阅读全文

posted @ 2016-07-23 16:40 ╰★张志峰★╮ 阅读(373) 评论(0) 推荐(0)