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

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