03 2017 档案
TModalResult 和 MessageBox 返回值
摘要://其实是对应的{ TModalResult values } const mrNone = 0; mrOk = idOk; mrCancel = idCancel; mrAbort = idAbort; mrRetry = idRetry; mrIgnore = idIgnore; mrYes = idYes; ...
阅读全文
延时程序
摘要:procedure delay(msecs: integer); var Tick: DWord; Event: THandle; begin Event := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs); while (msecs > 0) ...
阅读全文