[demon-sheff]

Сообщение от Страдалецъ

Код:

procedure TForm2.ApplicationIdle(Sender: TObject; var Done: Boolean);
Var
  CurrentTime: Extended;
begin
 Done := False;
 CurrentTime := GetTickCount;
 if CurrentTime - ApplicationStartTime > 1000 * 60 * 5
 then begin
      ApplicationStartTime := CurrentTime;
      ShowMessage('Другая форма');
      Done := True;
      end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
 ApplicationStartTime := GetTickCount;
 Application.OnIdle := ApplicationIdle;
end;

делаю как вы написали идет зацикливание и все тут, т.е. даже доли секунды не проходит он начинает писать сообщение "другая форма" и все тут...