Cita:
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.......