[demon-sheff]

Добрый день! Подскажите пожалуйста, как реализовать следующее условие. Если не нажимать на кнопки клавиатуры и мыши в течении 5 минут, то чтобы запускалась форма.

[Yurk@]

компонент TApplicationEvents событие OnIdle

[demon-sheff]

чего-то я может не понимаю? делаю все так

Код:

procedure TForm1.IdleEventHandler(Sender: TObject; var Done: Boolean);
begin
  Form1.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle := IdleEventHandler;
end;


procedure TForm1.IdleProc(sender:TObject; var Done: Boolean);
begin
   Timer1.:= TimeToStr(Time);
done:=false;
end;

не проходит

[demon-sheff]

вроде разобрался работает так:

Код:

  private
    { Private declarations }
    procedure IdleEventHandler(Sender: TObject; var Done: Boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.IdleEventHandler(Sender: TObject; var Done: Boolean);
begin
if timer1.Interval=10000 then
  Form1.WindowState:=wsMaximized;
  Done := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle := IdleEventHandler;
  form1.WindowState:=wsMinimized;
end;

скажите пожалуйста как сделать чтобы по истечении 5 мин бездействия запускалась форма?

[Страдалецъ]

Код:

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;

[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;

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

[angvelem]

Удобнее использовать Now.

Код:

var
  isDone : Boolean;
  ApplicationStartTime : TDateTime;

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
Var
  CurrentTime : TDateTime; 
begin
  CurrentTime := Now;
  if not isDone and (CurrentTime >= ApplicationStartTime) then
  begin
    isDone := True;
    ShowMessage('Другая форма');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject); 
begin
  isDone := False;
  ApplicationStartTime := Now;
  ApplicationStartTime := incMinute(ApplicationStartTime, 5);
  Application.OnIdle := ApplicationEvents1Idle;
end;

[demon-sheff]

Сообщение от angvelem

Код:

  ApplicationStartTime := incMinute(ApplicationStartTime, 5);

ругается undeclared identifier:'incMinute' я так понимаю он какого-то типа должен быть?

[angvelem]

В uses подключить DateUtils.

[demon-sheff]

странно, но почему-то ничего не происходит?

[angvelem]

Смотри где напутал. Для более быстрой проверки поставь такую строку.

Код:

  ApplicationStartTime := incSecond(ApplicationStartTime, 10);

строку с минутами заремируй.

[demon-sheff]

все равно ничего не происходит.
вот тут все правильно вы написали?

Код:

Application.OnIdle := ApplicationEvents1Idle;

я подправил вот так

Код:

Application.OnIdle := ApplicationEvents1.OnIdle;

может из-за этого

[angvelem]

У меня правильно написано, так как эту строчку Дельфи сформировал автоматически при создании события OnIdle в Инсректоре.

[Страдалецъ]

Че-то вы не то делаете. У меня все точно работает с первоначальным кодом. В форму добавили переменную и заголовок события?

Код:

TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure ApplicationIdle(Sender: TObject; var Done: Boolean);
  private
    ApplicationStartTime: Extended;
  public
    { Public declarations }
  end;

[angvelem]

У тебя не может работать правильно, так как переменная Done служит несколько для других целей нежели применённая в коде.