Cita:
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