Click en minimizar ventana y minimizar aplicacion

[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