Ver Mensaje Individual
  #2  
Antiguo 21-07-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.141
Reputación: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Los formularios tienen una propiedad "Active" que tal vez podrías utilizar como "bandera". Es decir, los eventos se dispararían igualmente, pero, siempre podrías situar la condición:

Código Delphi [-]
  if not Active then Exit;
Antes de que en el evento en cuestión se llevara a cabo nada en absoluto.

Por ejemplo, este sería el evento "OnTimer" de un "TTimer" que tuviera que saludarme, como bien educado, cada tanto tiempo:

Código Delphi [-]
 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
   if not Active then Exit;
   ShowMessage('Hola dec');
 end;
En este caso, siempre que el formulario esté activo (Active = true) recibiré un saludo (no tengo abuela) pero, si, por el contrario, el formulario no estuviera activo no recibiría ningún saludo. Qué le vamos a hacer.
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 21-07-2005 a las 17:13:15. Razón: (ampliación del texto)
Responder Con Cita