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