Automatisch abmelden von Benutzer nach Zeit ohne Handlung

[Jens Hartmann]

Danke erstmal,

für die schnellen antworten. Das mit dem Timer habe ich momentan so gelößt

Delphi-Quellcode:

procedure Anmelden;
begin
  ....
  AutoAbmelden.Interval := 10000*StrToInt(Zeit);//Zeit in Minuten
  AutoAbmelden.Enabled := true;
  ....
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  AutoAbmelden.Enabled := false;
  AutoAbmelden.Enabled := true;
end;

Zitat von thkerkmann:

verwende einen Timer und einen Counter.

Der Counter, müsste eine globale Variable sein. Deshalb frage ich mich, ob das richtig wäre. Müsste ja dann in etwa so aussehen.

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Counter := 30; //die 30 kann sich ändern, daher müsste ich jedesmal aus der DB lesen.
end;

procedure TForm1.AutoAbmeldenTimer(Sender: TObject);
begin
  for i := 0 to Counter do
    begin
      ..
      Counter -1;
    end;
  Abmelden.Click;
end;

Gruß Jens