Ver Mensaje Individual
  #2  
Antiguo 24-09-2004
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Hola, debes asignar código al evento OnMinimize del objeto TApplication.
Para ello tienes 2 opciones, una más fácil que la otra:

1) Menos fácil, Te defines un método TNotifyEvent y se lo asignas al evento Application.OnMinimize

2) Más fácil, Usas el componente TAppEvents de las Rx y en el evento OnMinimize, le pones SysUtils.Abort;, por ejemplo:
Código Delphi [-]
procedure TFormPrincipalG5SQL.AppEventsMinimize(Sender: TObject);
begin
  SysUtils.Abort; // o lo que quieras  
end;

Salu2.
Responder Con Cita