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.