03 2017 档案
TModalResult 和 MessageBox 返回值
摘要://其实是对应的{ TModalResult values } const mrNone = 0; mrOk = idOk; mrCancel = idCancel; mrAbort = idAbort; mrRetry = idRetry; mrIgnore = idIgnore; mrYes = idYes; ... 阅读全文
posted @ 2017-03-10 13:40 宝兰 阅读(566) 评论(0) 推荐(0) 编辑
延时程序
摘要:procedure delay(msecs: integer); var Tick: DWord; Event: THandle; begin Event := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs); while (msecs > 0) ... 阅读全文
posted @ 2017-03-09 09:11 宝兰 阅读(161) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示