Anteriormente había mencionado que quizá funcionaría usando el mensaje WM_SIZE pero no tenía manera de verificarlo en ese momento. Ahora que lo hago veo que no es el mejor lugar. De hecho, según leo en la documentación, WM_SIZE ocurre
después de que la ventana cambia de tamaño por lo que es lógio que no funcione.
Según pruebo ahora, puedes intentar con el mensaje WM_SYSCOMMAND:
Código Delphi
[-]
procedure TForm2.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType and $FFF0 = SC_MAXIMIZE) or (Msg.CmdType and $FFF0 = SC_RESTORE) then
begin
EnableAnimation(false);
inherited;
EnableAnimation(true);
end
else
inherited;
end;
Como ves, he comentado las líneas de LockWindowUpdate pues al inhabilitar la animación, parece que no son necesarias.
// Saludos