Cerrar un Formulario por Rango de Tiempo

[BPL]

hola....

necesito saber si existe en delphi 7 algun componente o algo similar
que pueda maneja un Time en donde si presiono alguna tecla no haga nada (es por que alguien esta trabajando) pero si no ha presionado ninguna tecla por 3 minutos que me cierre el formulario...

ojala exista algo.....
gracias.....

[ecfisa]

Hola.

No sé de ningún componente que haga eso, pero no es difícil de implementar:

Código Delphi [-]
implementation

procedure TForm2.FormShow(Sender: TObject);
begin
  KeyPreview:= True;// el form recibe eventos de teclado antes que el control activo
  Timer1.Interval:= 60000*3; // 3 minutos
  Timer1.Enabled:= True;
end;

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
  // 3 minutos más...
  Timer1.Enabled:= False;
  Timer1.Enabled:= True;
end;
...
...
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Close;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Timer1.Enabled:= False;
  Action:= caFree;
end;

end.

Saludos.

[[oscarac]]

me imagino que puedes usar el componente TIMER colocandole el tiempo de 3 minutos para que se cierre, lo combinas con los eventos onkey.... y OnMouse...para colocar en cero el contador en caso alguien este utilizando el form y listo

[[oscarac]]

debo ser mas rapido.. mientras yo escribia... Flash ecfisa ya colocaba una respuesta

[BPL]

efcisa....gracias...lo implemente y resulto perfecto....

te pasaste.....

[ecfisa]

Hola BPL.

De nada, me alegro que te haya servido.

Saludos.

[[oscarac]]

Empezado por ecfisa

jajajajajajaja ya ves lo que digo? jajajajaja muy buena...

[[oscarac]]

Empezado por ecfisa

Hola.

No sé de ningún componente que haga eso, pero no es difícil de implementar:

Código Delphi [-]
implementation

procedure TForm2.FormShow(Sender: TObject);
begin
KeyPreview:= True;// el form recibe eventos de teclado antes que el control activo
Timer1.Interval:= 60000*3; // 3 minutos
Timer1.Enabled:= True;
end;

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
// 3 minutos más...
Timer1.Enabled:= False;
Timer1.Enabled:= True;
end;
...
...
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Close;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Timer1.Enabled:= False;
Action:= caFree;
end;

end.





Saludos.

y si solo mueven el mouse ? se cerraria igual verdad?
agregale los eventos onMouse.......

[ecfisa]

jaja, quité la imágen por que me pareció inapropiada.... pero en este caso fuiste más rápido

En ese caso tendría que agregar el mismo código de refresh del timer en el evento OnMouseMove como bíen decis vos.

Saludos.

[[Chris]]

Auque la solución propuesta por ecfisa es valida. Puedes probar algo más cómo y simple. Utiliza la API de Windows. Precisamente la función GetLastInputInfo.

Código Delphi [-]
var
    LastInputInfo: PLASTINPUTINFO;
begin
    if GetLastInputInfo(LastInputInfo) <> 0 then
        if LastInputInfo.dwTime => (60000 * 3) then
            Self.Close;
end;

El procedimiento anterior lo puedes utilizar en un Timer que se ejecute ciclícamente entre un periodo determinado.

Saludos,
Chris

PD: @oscarac: Vieras como me reí de la fotode ecfisa que has colgado... jajaja