Cerrar un Formulario por Rango de Tiempo

[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]]

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