Click en minimizar ventana y minimizar aplicacion

[dmassive]

Buenos Dias!

Estoy con Delphi 7 y en el foro no esta claro como hacer esto, ni siquiera si es posible, por lo cual, y ante varias pruebas... ¿No se puede hacer?

Veamos, hago click en el minimizar de la ventana de un formulario y quiero ejecutar:

Código Delphi [-]
Application.Minimize;

Pero no se como llamarlo.

Pues bien, no quiero verme obligado a añadir un boton para lograrlo. Y TApplicationEvents no me sirve puesto que esos eventos son de la aplicacion y yo necesito un "OnMinimize" del formulario.

Tambien probe esto pero tampoco funciona

Código Delphi [-]
Procedure TFormMain.WMSYSCOMMAND(var Msg: TMessage);
begin
  if Msg.wParam = SC_MINIMIZE then
     begin
       application.Minimize;
     end
  else
     Inherited;
end;

¿Alguna Sugerencia?

Gracias!

[[cHackAll]]

Código Delphi [-]
Application.OnMinimize

[dmassive]

¿Puedes explayarte mejor?

[roman]

Empezado por dmassive

¿Alguna Sugerencia?

Tal como lo tienes debería funcionar, si acaso con una pequeña modificación:

Código Delphi [-]
procedure TForm2.WMSysCommand(var Msg: TMessage);
begin
  if (Msg.wParam and $FFF0 = SC_MINIMIZE) then
    Application.Minimize
  else
    inherited;
end;

De todas maneras, es extraño que quieras implementar este comportamiento para lo que parece ser el formulario principal, ya que, de hecho, es así como trabaja por defecto dicho formulario: minimizar la aplicación cuando se minimiza el formulario. El código descrito sería para otros formularios.

Quizá debas explicar mejor lo que quieres hacer.

// Saludos

[dmassive]

Mi planteo era en base a toda la informacion que hay dando vueltas que no es clara, y los links hacia las soluciones son de paginas que ya no existen. Es por eso que intente abarcar todas las posibilidades para que no haya dudas... pero fallo

El planteo en imagenes era asi:

Cuando hago click en Minimizar:


La aplicacion queda asi:


Ese era el problema....

Pues tras probar he dado con el problema y es en la declaracion del procedimiento:

El codigo seria asi:

Código Delphi [-]
Procedure WMSYSCOMMAND(Var Msg: TMessage); Message WM_SYSCOMMAND;

Código Delphi [-]
Procedure TFormMain.WMSYSCOMMAND(Var Msg: TMessage);
Begin
  If Msg.wParam = SC_MINIMIZE Then
     Begin
          Application.Minimize;
     End
  Else
      Inherited;
End;

Ahora soy feliz... Gracias por responder.

[roman]

Me quedaba claro qué es lo que querías lograr. Lo que me parece raro es que estás aplicando ese código a un formulario llamado FormMain, que, al menos por su nombre, parece ser el formulario principal de la aplicación, para el cual es innecesario aplicar ese código. De hecho, el código original de TForm, al manejar el mensaje WM_SYSCOMMAND, básicamente hace esto:

Código Delphi [-]
if Application.MainForm = Self then
  Application.Minimize;

// Saludos