Cerrar formularios pasado un tiempo

[ecfisa]

Hola ElDioni.

Te agrego otra idea derivando una clase de TPanel, por ahí te puede servir...

Saludos.

[[Caral]]

Hola
Quiero poner una queja formal.
Los codigos de mi amigo ecfisa me están dejando mal parado.
Asi no se vale.
Saludos
PD: Muy bueno amigo, muy bueno.

[[ElDioni]]

Hola ecfisa,

muchas gracias por el código, está cojonudo, voy a adaptarlo a mi programa para ver como queda y os cuento, pero en principio, con el vistazo que le he dado así por encima, creo que me va a servir para lo que pretendía.

Gracias de nuevo, y a ti también Caral gracias por tu tiempo.

Saludos.

[[ElDioni]]

Bueno, lo he estado probando y efectivamente me sirve y mucho, le he tenido que añadir el siguiente código porque sino no reiniciaba el contador del timer.

Código Delphi [-]
procedure TForm1.PanelEnter(Sender: TObject);
begin
  (Sender as TPanel).FTimer.Enabled:=false;
  (Sender as Tpanel).TimeToClose:= 10000;
  (Sender as TPanel).FTimer.Enabled:=true;
end;

Me faltaría poder cerrar el panel que tiene el foco si en realidad, aunque tenga el foco, no se está utilizando. Voy a ver si se me ocurre algo.

Saludos y gracias.