|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Поток + Set|KillTimmer
Подскажите в чем может быть проблема.
Обработчик таймера Код:
procedure TЬForm.WMTimer(var Msg: TWMTimer); begin try try Thr.initWork(Msg.TimerID); // ShowMessage(BoolToStr(KillTimer(Self.Handle, msg.TimerID), True)); Msg.Result := 0; except end; finally KillTimer(Handle, Msg.TimerID); inherited; end; end; Код:
begin FLock.Enter; try if not FOnTime then begin fOnTime:=True; .... fOnTime:=false; end; finally FLock.Leave end; end; Код:
[14:11:42:253] Add Worker: Id: 1, Time: 7000 [14:11:42:759] Add Worker: Id: 2, Time: 8500 [14:11:43:264] Add Worker: Id: 3, Time: 10500 Последний раз редактировалось nixon232, 14.04.2018 в 15:26. |