TIdleTimer funktioniert leider nicht

Für Fragen von Einsteigern und Programmieranfängern...
Antworten
ZenForAll
Beiträge: 38
Registriert: Fr 1. Sep 2023, 18:24

TIdleTimer funktioniert leider nicht

Beitrag von 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
Beiträge: 499
Registriert: Di 19. Mai 2015, 20:05
OS, Lazarus, FPC: Linux Mint 20 Cinnamon,Lazarus 2.2.6 (rev lazarus_2_2_6) FPC 3.2.2 x86_64-linux-
CPU-Target: x86_64-linux-gtk2

Re: TIdleTimer funktioniert leider nicht

Beitrag von 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
Dateianhänge
project1.zip
(105.45 KiB) 16-mal heruntergeladen

ZenForAll
Beiträge: 38
Registriert: Fr 1. Sep 2023, 18:24

Re: TIdleTimer funktioniert leider nicht

Beitrag von ZenForAll »

Super vielen Herzlichen Dank

Antworten