[demon-sheff]

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

[Yurk@]

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

[demon-sheff]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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 мин бездействия запускалась форма?

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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]

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

Код:

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

[angvelem]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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

Код:

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

[angvelem]

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

[demon-sheff]

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

[angvelem]

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

Код:

1	ApplicationStartTime := incSecond(ApplicationStartTime, 10);

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

[demon-sheff]

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

Код:

1	Application.OnIdle := ApplicationEvents1Idle;

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

Код:

1	Application.OnIdle := ApplicationEvents1.OnIdle;

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

[angvelem]

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

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

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

Код:

1 2 3 4 5 6 7 8

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

[angvelem]

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