TIdleTimer funktioniert leider nicht

[ZenForAll]

https://forum.lazarus.freepascal.org/in ... c=18062.15

Ich habe folgendes Bsp. gefunden.
Leider tuuut sich da gar nichts.
Schönes Wochenende.

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdleTimer1.AutoEnabled:=True;
  IdleTimer1.AutoEndEvent:=itaOnUserInput;
  IdleTimer1.AutoStartEvent:=itaOnIdle;
  IdleTimer1.Enabled:=False;
  IdleTimer1.Interval:=5000;
end;

procedure TForm1.IdleTimer1Timer(Sender: TObject);
begin
  ShowMessage('Application will be closed by inactivity.');
  Application.Terminate;
end;

[wennerer]

Guten Morgen,
damit sich was tut musst du Enabled auf true setzen.

Code: Alles auswählen

procedure TForm1.FormCreate(Sender : TObject);
begin
 IdleTimer1.AutoEnabled:=True;
 IdleTimer1.AutoEndEvent:=itaOnUserInput;
 IdleTimer1.AutoStartEvent:=itaOnIdle;
 IdleTimer1.Enabled:=true;
 IdleTimer1.Interval:=5000;
end;

procedure TForm1.IdleTimer1Timer(Sender : TObject);
begin
 ShowMessage('Application will be closed by inactivity.');
 Application.Terminate;
end;      

Viele Grüße
Bernd

[ZenForAll]

Super vielen Herzlichen Dank