Cerrar formularios pasado un tiempo

[[Caral]]

Hola
Usa el tag del panel.
Saludos

[[ElDioni]]

, no se a que te refieres, dices que use el tag del panel, ¿como vigía?, por ejemplo, si estoy usando el panel1 a este le pongo el tag:=1 y a los demás el tag:=0, entonces pasado el tiempo miro los que tienen 0 y los cierro, ¿algo así?, si te refieres a eso se me ocurre que, si tengo abierto un panel en primer plano pero no lo estoy utilizando porque me he ido a tomar cafe, en realidad no lo estoy utilizando, por lo que se debería cerrar. Si cuando cambio de panel pongo el que tengo activo en 1 en el tag y el resto en 0 se me cerraran todos los que pongan 0 cuando llegue el tiempo deseado aunque los haya estado usando en el último segundo y lo que quiero es que no se cierren hasta que haya pasado un tiempo sin utilizarse.

A lo mejor es que no he pillado a que te referías con el tag.

Saludos.

[[Caral]]

Hola
Pregunto:
Los usaras con el mouse ?.
Se podria hacer un procedimiento para que vea la posicion de raton, algo asi:

Código Delphi [-]
procedure TForm1.posicion;
 var
  pt:tpoint;
begin
 getcursorpos(pt);
 label1.Caption:= inttostr(pt.x)+'   '+inttostr(pt.y) ;
end;

Esto te dara la posicion x e Y del raton, con esto puedes saber si el raton esta encima del panel y cerrar los demas.
Saludos

[[ElDioni]]

Te tengo que pedir perdón Caral porque te voy dando la información a cuentagotas, sí, utilizo el ratón para moverme por el panel y sus componentes, pero también el teclado, además el panel que estoy utilizando lo pongo en Align:=AlClient por lo que los demás se quedan detrás, entonces voy añadiendo los nombres de los paneles que tengo abiertos en un statusbar, al pulsar sobre el nombre del panel que quieres ver te lo trae al frente. tu solución valdría si los paneles tuvieran una posición fija cada uno, sabiendo la posición del panel y la del mouse.

Una solución que me sirvió una vez para una aplicación que quería que se cerrase si no se estaba utilizando fué la siguiente:

Código Delphi [-]
procedure TFrmMenuCompras.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
//RATON
if (Msg.message = WM_MOUSEMOVE) then
  begin
    timer1.Enabled:=false;
    timer1.Enabled:=true;
  end
// TECLAS
else
  begin
    // Pulsada tecla...
    if  (Msg.message = WM_KEYDOWN)     or (Msg.message = WM_KEYUP)       or
        (Msg.message = WM_SYSKEYDOWN)  or (Msg.message = WM_SYSKEYUP)    or
        (Msg.message = WM_ACTIVATE)    or (Msg.message = WM_NCACTIVATE)  or
        (Msg.message = WM_ACTIVATEAPP) or
        (Msg.message = WM_LBUTTONDOWN) or
        (Msg.message = WM_RBUTTONDOWN) or (Msg.message = WM_MBUTTONDOWN) then
      begin
        timer1.Enabled:=false;
        timer1.Enabled:=true;
      end;
  end;
end;

Pero esto era para cerrar la aplicación entera no una cierta parte de la aplicación.

Espero que así se entienda mejor.

[[ElDioni]]

Hola,

quería especificar que además de querer cerrar los paneles que estabamos comentando, que se encuentran dentro de un mismo form, también quiero cerrar otros formularios cuando pase un tiempo determinado sin usarse.

Saludos.

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