OnTimer: выключить таймер внутри обработки этого события реально?

[malor]

Хочу остановить работу таймера внутри
TMainForm.Timer1Timer(Sender: TObject);

Но т.к. мессиджы плодятся каждую прошедшую минуту бездействия, то и возник вопрос - что ж он не остановится?

Код: (Delphi)

const IDLE_INTERVAL = 60000;        // Минута бездействия

function LastInput(): DWord;
var
  LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin

 if (Round(LastInput) >= IDLE_INTERVAL) then
   begin
     MainForm.Visible := false;
     ShowMessage('Не было активности более минуты!');
     Timer1.Enabled := false;
     FinishSession();       // Какие-то действия
   end;

end;

[Алексей++]

задача непонятна

а остановить таймер конечно же можно и внутри обработчика

[malor]

Если человек не проявлял активности за компом, то выдать сообщение на экран.

Можно? А что тогда не останавливается выдача мессиджбоксов?

[Алексей++]

в обработчике показать окно, остановить таймер. Когда активность проявится, скрыть окно и запустить таймер

также, в обработчике смотреть - если была активность, то ничего не делать

[malor]

Проблема заключалась в том что в коде
    ShowMessage('Не было активности более минуты!');
     Timer1.Enabled := false;

мы останавливаемся на строке ShowMessage() и тем самым переход к непосредственному отключению таймера строкой
    Timer1.Enabled := false;
не был осуществлен. Так ?

Может просто их поменять местами?

[Алексей++]

ShowMessage - это же модальное окно. Перед ним, ага, отключи, а то новые сообщения таймера в очереди накопятся

[DneprSMV]

Алексей1153++, не уверен, но таймерные сообщения в очередь вроде не идут. Кажецца ....

malor, а зачем использовать ShowMessage() - модальное, если можно выдать инф в поле формы.
Или вызывать свой диалог со своим уже управлением ?

[Алексей++]

DneprSMV, проверь Расскажи. Я помню так, что идут

[x77]

это в принципе хреновая затея - из таймера диалоговые окна показывать. лучше зарегестрировать свою мессагу, WM_APP + 10, какой-нибудь, и из таймера слать его приложению. а приложение пускай обрабатывает мессагу и окна показывает, таймер к тому времени уже будет стоять при любых раскладах.

[DneprSMV]

Алексей1153++,
если таймер на базе WM_TIMER, то вроде как в очередь идет только первое.
(вроде логично, если приложение не забирает вовремя таймерные сообщения, то если они накопятся, какой в них смысл - они ведь уже "не актуальны" в смысле привязки к временным интервалам).
Я в WinAPI только около года, где-то попадалось, надо "перечитать пейджер" и "много думаль", не помню где  
---
ps - "не так выразилось". Имелось ввиду что очередь для таймера имеет длину 1.

[x77]

DneprSMV, именно так. дельфийский таймер дергает апи-шный SetTimer, а дальше

Код: (Delphi)

  with Msg do
    if Msg = WM_TIMER then
      try
        Timer;
      except
        Application.HandleException(Self);
      end
    else
      Result := DefWindowProc(FWindowHandle, Msg, wParam, lParam);

[Алексей++]

Имелось ввиду что очередь для таймера имеет длину 1.

ну оно так само собой получится - если новое сообщение придёт тогда, когда ты в обработчике, то оно выполнится сразу после выхода из обработчика. Поток то один )